delphi中Case语法的使用方法


本文整理自网络,侵删。

 
Case 语句
If...Then…Else 语句适合选项较少的情况,如果有很多选项的话利用If 语句就比较麻烦,在这种情况下,Case 语句就容易多了。Case 语句的语法如下:

 case <表达式> of
<数值>:<语句>;
<数值>:<语句>;
else
<语句>;
end;
下面这个例子中的S 为Char 类型。当用户输入一个字符后按回车键确认后判断变量S,如果是小写或大写字母将显示“字符”,如果是数字,则显示“数字”,其余的字符就显示“其他”,判断语句如下:
 var
S:Char;
begin
Readln(S);
case S of
’a’..’z’, ’A’..’Z’:Writeln(’字符’);
’0’..’9’:Writeln(’数字’);
else
Writeln(’其他’);
end;
注意:Case 构造中的任何一个语句都可以是单语句或复合语句。如果需要在某种情况下执行多行代码,必须将它们用Begin…End 括起来。
也可以用 case  + begin..end,语法如下:

case 表达式 of

0:begin 

 end;

1:begin

 end;

else

 begin

 end;

end;

相关阅读 >>

Delphi fmx关闭安卓程序

Delphi获取dos命令行输出函数 运行cmd命令并获取结果【方法2】

Delphi 双击listbox1内容,数据插入到memo1/synedit1鼠标指定位置

Delphi字符串内多个空格合为一个空格

Delphi中对进程内存进行读写

Delphi 上传文件到七牛,纯原生

Delphi xe7中stringgrid组件的使用

判断url的有效性

Delphi xe android platform uses-permission[1] 权限列表

Delphi fdmemtable1建立缓存表

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...