Delphi 系统[8]关键字和保留字 if、then、else、case

Delphi 系统[8]关键字和保留字 if、then、else、case 

1、定义：

• if..then..else 组合使用，构成条件判断语句，当不需要 else 时，可以省略 else ，当 else与 if 配合使用时，else 前面的一条语句不能以分号结束。 
• case..else 组合使用，构成条件选择语句。 
• else 还可以与 try..except on 语句组合，构成异常处理语句，详见 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　　更新时间：