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

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