delphi中Case語法的使用方法

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

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中Frame的使用方法(2)

frame在寫 時和一般元件有什麼不同呢?比如 1 中的客戶資訊的frame,如果想重寫客戶編輯按鈕的click事件,會發生什麼呢 procedure tbusonsitemanager framecustomerbuttoneditcustomerclick sender tobject begi...

Delphi中Frame的使用方法(1)

frame是元件面板上的第一個元件,但不是每個人都知道怎麼用它,因為它不像button和label一樣簡單明瞭。實際上,frame按鈕只是開啟一個frame的列表,如果你沒有建立任何的frame,自然什麼也不會看到。 那麼frame到底是什麼呢?簡單來說 1 frame是元件容器,類似panel 2...

Vue 中 attrs 中的使用方法

vue官網是這樣介紹的 包含了父作用域中不作為 prop 被識別 且獲取 的特性繫結 class和style除外 。當一個元件沒有宣告任何 prop 時,這裡會包含所有父作用域的繫結 class和style除外 ,並且可以通過v bind attrs 傳入內部元件 在建立高階別的元件時非常有用。 a...