本文整理自网络，侵删。
Case 语句If...Then…Else 语句适合选项较少的情况，如果有很多选项的话利用If 语句就比较麻烦，在这种情况下，Case 语句就容易多了。Case 语句的语法如下：
case <表达式> of<数值>:<语句>;<数值>:<语句>;else<语句>;end;下面这个例子中的S 为Char 类型。当用户输入一个字符后按回车键确认后判断变量S，如果是小写或大写字母将显示“字符”，如果是数字，则显示“数字”，其余的字符就显示“其他”，判断语句如下： varS:Char;beginReadln(S);case S of’a’..’z’, ’A’..’Z’:Writeln(’字符’);’0’..’9’:Writeln(’数字’);elseWriteln(’其他’);end;注意：Case 构造中的任何一个语句都可以是单语句或复合语句。如果需要在某种情况下执行多行代码，必须将它们用Begin…End 括起来。也可以用 case + begin..end,语法如下：
case 表达式 of
0:begin
end;
1:begin
end;
else
begin
end;
end; 相关阅读 >>
winapi 字符及字符串函数(11): lstrcpyn - 复制字符串, 同时指定要复制的长度
Delphi application.title在win7下失效了？
Delphi android实例-红外线操作(xe10.2+小米5)
更多相关阅读请进入《Delphi》频道 >>
