RSS订阅 | 匿名投稿
您的位置:网站首页 > 程序 > 正文

delphi 捕捉全局异常错误的方法

作者:admin 来源: 日期:2018/1/23 11:10:17 人气: 标签:

private
    { Private declarations }
  public
  procedure GlobalExceptionHandler(Sender: TObject; E: Exception);
    { Public declarations }
  end;proced


ure TForm1.FormCreate(Sender: TObject);

begin

Application.OnException := GlobalExceptionHandler;

end;

 

 

procedure TForm1.GlobalExceptionHandler(Sender: TObject; E: Exception);

begin

mmLog.Lines.Add(Sender.ClassName + ': ' + E.Message);

end;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料