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 括起來。