[转帖]Delphi中条件的使用_Android, Python及开发编程讨论区_Weblogic技术|Tuxedo技术|中间件技术|Oracle论坛|JAVA论坛|Linux/Unix技术|hadoop论坛_联动北方技术论坛  
网站首页 | 关于我们 | 服务中心 | 经验交流 | 公司荣誉 | 成功案例 | 合作伙伴 | 联系我们 |
联动北方-国内领先的云技术服务提供商
»  游客             当前位置:  论坛首页 »  自由讨论区 »  Android, Python及开发编程讨论区 »
总帖数
1
每页帖数
101/1页1
返回列表
0
发起投票  发起投票 发新帖子
查看: 3279 | 回复: 0   主题: [转帖]Delphi中条件的使用        下一篇 
wenjie.zhang
注册用户
等级:上尉
经验:628
发帖:54
精华:0
注册:2013-11-11
状态:离线
发送短消息息给wenjie.zhang 加好友    发送短消息息给wenjie.zhang 发消息
发表于: IP:您无权察看 2013-11-13 10:51:12 | [全部帖] [楼主帖] 楼主

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结尾。




赞(0)    操作        顶端 
总帖数
1
每页帖数
101/1页1
返回列表
发新帖子
请输入验证码: 点击刷新验证码
您需要登录后才可以回帖 登录 | 注册
技术讨论