case语句适用于被判断的
变量或属性是整形、字符型、枚举型或子界型时（LongInt除外）。
用case语句进行逻辑跳转比编写复
杂的if语句容易阅读，而且程序代码整形较快。
下面的例程显示一个使用case语句的
窗体：
建立如下的事件处理过程：
procedureTForm1.Button1Click(Sender:TObject);
var
Number:Integer;
begin
Number:=
StrToInt(Edit1.Text);
caseNumberof
1,3,5,7,9:Label2.Caption:='奇数';
0,2,4,6,8:Label2.Caption:='偶数';
10..100:
begin
Label2.Caption:='在10到100之间';
Form1.Color:=clBlue;
end;
else
Label2.Caption:='大于100或为负数';
end;
end；
执行程序，当Edit1部件接受到一个值，并按动“OK”按钮
触发程序后，Number便被赋值为
用户输入的数值。case语句根据Number的值判断该执行哪一条语句。象if语句一样。case
语句也有可选择的else部分。case语句以end结尾。
当前位置：
论坛首页 »
自由讨论区 »
Android, Python及开发编程讨论区
»
发起投票
技术讨论
加好友
发消息
2013-11-13 10:51:12 |
赞(
操作
