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、示例：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

{ 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　　更新时间：