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消息发送字符串

Delphi winapi: windowfrompoint- 获取指定点所在窗口的句柄

Delphi关于tjpegimage的使用(bmp\ jpg格式转换）

Delphi 释放bitmap

Delphi 用 tbytesstream 类实现的读文件为十六进制字符的函数

Delphi中使用spcomm来实现串口通讯

Delphi和金山词霸制作批量单词翻译

Delphi检测用户是否具有administrator权限

Delphi2010中字符串汇编需要注意的一点，以及支持2010的aes加密库

Delphi 5-7 桥接让Delphi xe2 datasnap中间层支持Delphi低版本开发客户端

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

转载请注明出处：木庄网络博客 » delphi中Case语法的使用方法