delphi case 语句

Question

if Gprs=true then 
                begin
                  case meterNumber of
                  1,3,4,5:
                    begin
                      CombinCode := '39341';
                    end;
                  2:
                    begin
                      CombinCode := '39351';
                    end;
                  6,7:
                    begin
                      CombinCode := '39351';
                    end;
                  end;
                end;
这样写的case可以嘛？

Answer 1

可以这样写，不过为了安全可以在加个else，没有必要用 breakcase num of
1: fun1;
2: fun2;
else
  other;
end;

Answer 2

if Gprs then 
case meterNumber of
1,3,4,5:CombinCode:='39341';
2:CombinCode:='39351';
6,7:CombinCode:='39351';
else
CombinCode:='324324324';
end;可以的,有必要就加一个else

Answer 3

为了程序更加健壮，建议增加ELSE分支

Answer 4

如果你已经确定了你的返回值的范围了，这样写就没问题。这里是Pascal，不需要break