Delphi 系統[8]關鍵字和保留字 if、then、else、case

1、定義：

• if..then..else組合使用，構成條件判斷語句，當不需要else時，可以省略else，當else與if配合使用時，else前面的一條語句不能以分號結束。
• case..else組合使用，構成條件選擇語句。
• else還可以與try..excepton語句組合，構成異常處理語句，詳見except。

2、示例：

{ if..then..else（條件判斷） } 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  I: Integer; 
begin 
  I := Random(100); 
  if I < 50 then 
    Caption := IntToStr(I) 
  else 
    Caption := IntToStr(I - 50); 
  end; 
end; 

{ if..then（條件判斷，無 else） } 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  I: Integer; 
begin 
  I := Random(100); 
  if I < 50 then 
    Caption := IntToStr(I); 
end; 

{ case..else（條件選擇） } 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  I: Integer; 
begin 
  I := Random(100); 
  case I of 
    1 .. 33: 
      Caption := '小'; 
    34 .. 66: 
      Caption := '中'; 
    67 .. 99: 
      Caption := '大'; 
  else 
    Caption := '0'; 
  end; 
end; 
 

建立時間：2021.08.11　　更新時間：