delphi中Case文法的使用方法

Case 語句

If...Then…Else 語句适合選項較少的情況，如果有很多選項的話利用If 語句就比較麻煩，在這種情況下，Case 語句就容易多了。Case 語句的文法如下：

case <表達式> of
<數值>:<語句>;
<數值>:<語句>;
else
<語句>;
end;      

下面這個例子中的S 為Char 類型。當使用者輸入一個字元後按Enter鍵确認後判斷變量S，如果是小寫或大寫字母将顯示“字元”，如果是數字，則顯示“數字”，其餘的字元就顯示“其他”，判斷語句如下：

注意：Case 構造中的任何一個語句都可以是單語句或複合語句。如果需要在某種情況下執行多行代碼，必須将它們用Begin…End 括起來。

var
S:Char;
begin
Readln(S);
case S of
’a’..’z’, ’A’..’Z’:Writeln(’字元’);
’0’..’9’:Writeln(’數字’);
else
Writeln(’其他’);
end;      

也可以用 case  + begin..end,文法如下：

case 表達式 of

0:begin 

 end;

1:begin

else

 begin

end;