+ -
当前位置:首页 → 问答吧 → delphi case 语句

delphi case 语句

时间:2011-12-03

来源:互联网

Delphi(Pascal) code
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可以嘛?

作者: xiaoweiwei2008   发布时间: 2011-12-03

没有呀,没有break;

作者: cankoo   发布时间: 2011-12-03

可以这样写,不过为了安全可以在加个else,没有必要用 break

case num of
1: fun1;
2: fun2;
else
  other;
end;

作者: onlyou13   发布时间: 2011-12-03

引用 2 楼 onlyou13 的回复:
可以这样写,不过为了安全可以在加个else,没有必要用 break

case num of
1: fun1;
2: fun2;
else
other;
end;

同意

作者: wang7535067   发布时间: 2011-12-03

热门下载

更多