Delphi 异常处理的两种方式
一、try Except end
在方法里直接
Try
Except
end;
二、TApplicationEvents
public
{ Public declarations }
procedure TryExcepts(Sender: TObject ;E: System.SysUtils.Exception) ;
end;
procedure TForm1.TryExcepts(Sender: TObject; E: System.SysUtils.Exception);
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := TryExcepts;
end;