Delphi 系统[14]关键字和保留字 try、finally、except、on、raise -异常处理语句

Delphi 系统[14]关键字和保留字  try、finally、except、on、raise -异常处理语句

1、定义：

• try..finally 组合使用，构成异常处理语句。先执行 try 部分的语句，无论 try 部分是否执行成功，finally 部分都会被执行。
• try..except on 组合使用，构成异常处理语句。正常情况下执行 try 部分的语句。 如果发生异常，则执行 except 后的语句。 
• raise 用于抛出异常。如果希望通过外部程序处理异常，或是在异常发生时重新将异常抛出，可以使用 raise 语句。异常被抛出后，raise后面的代码将不被执行。 

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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

{ try finally（异常处理） } procedure TForm1.Button1Click(Sender: TObject); var   Strs: TStringList; begin   Strs := TStringList.Create;   try     Strs.Add('TaoRoy Test finnally');     Caption := Strs[0];   finally     Strs.Free;   end; end;      { try except on else（异常处理） } procedure TForm1.Button1Click(Sender: TObject); var   I: Integer;   S: String; begin   S := '123A';   try     I := StrToInt(S);   except     on EZeroDivide do       Caption := 'EZeroDivide';     on EOverflow do   //EOverflow是浮点寄存器溢出的异常类。       Caption := 'EOverflow';     else       Caption := 'Unknow Error';   end; end;      { raise 抛出异常1 正常抛出} procedure TForm1.Button1Click(Sender: TObject); var   I: Integer; begin   I := -1;   if I < 0 then     raise exception.Create('整数不能小于 0'); end;    { raise 抛出异常2 try except 中抛出} procedure TForm1.Button1Click(Sender: TObject); var   I: Integer;   S: string; begin   try     S := '222A333';     I := StrToInt(S);   except     on E:exception do       raise exception.Create(E.Message);   end; end;

　　

 

 

 

 

创建时间：2021.08.11　　更新时间：