delphi中Case語法的使用方法

2022-06-23 18:15:15 字數 765 閱讀 1778

case 語句

if...then…else 語句適合選項較少的情況,如果有很多選項的話利用if 語句就比較麻煩,在這種情況下,case 語句就容易多了。case 語句的語法如下:

case

《表示式》 of

《數值》:《語句》;

《數值》:《語句》;

else

《語句》;

end;

下面這個例子中的s 為char 型別。當使用者輸入乙個字元後按回車鍵確認後判斷變數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

end;

else

begin

end;

end;

delphi中ShellExecute使用詳解

如果將filename引數設定為 mailt 協議格式,那麼該函式將啟動預設郵件客戶程式,如microsoft outlook 也包括microsoft outlook express 或netscape messanger。若使用者機器中安裝了多個郵件客戶程式,則該函式將根據windows 9x ...

delphi中ShellExecute使用詳解

nil,nil,sw shownormal 格式二 http 網域名稱 網頁檔名。如 shellexecute handle,open default.htm nil,nil,sw shownormal 如果將filename引數設定為 mailt 協議格式,那麼該函式將啟動預設郵件客戶程式,如mi...

delphi中ShellExecute使用詳解

delphi parameters 如果將filename引數設定為 mailt 協議格式,那麼該函式將啟動預設郵件客戶程式,如microsoft outlook 也包括microsoft outlook express 或netscape messanger。若使用者機器中安裝了多個郵件客戶程式,...