delphi中Case語法的使用方法
阿新 • • 發佈:2019-02-12
Case 語句
If...Then…Else 語句適合選項較少的情況,如果有很多選項的話利用If 語句就比較麻煩,在這種情況下,Case 語句就容易多了。Case 語句的語法如下:
case <表示式> of <數值>:<語句>; <數值>:<語句>; else <語句>; 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
end;
else
begin
end;
end;