截取DELPHI出錯信息,在寫入log文件中,有沒有通用方法?

Question

重载异常事件procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
    showmessage('出错了') ; //当然你也可以再这边将出错系统写到Log文件中
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := AppException;
end;

Answer 1

可以用ApplicationEvents控件，创建其OnException事件：
procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
var
  ErrorFile:TextFile;
begin
  assignfile(ProErrorFile,'Error.log');
  if FileExists('Error.log') then
  append(ErrorFile)
  else
  Rewrite(ErrorFile);
  Writeln(ErrorFile,E.Message);
  closefile(ErrorFile);
end;这样就可以将程序捕捉到的错误信息写进文件里了。