1. 程式人生 > >delphi中Case語法的使用方法

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;