Application - Logar exceptions

Top  Previous  Next

Ao dar erro chama essa funcao:

******************************

 

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

var

  Filename: string;

  LogFile: TextFile;

begin

  Filename := ChangeFileExt(Application.Exename, '.log');

 

  AssignFile(LogFile, Filename);

  if FileExists(FileName) then Append(LogFile) else Rewrite(LogFile);

 

  Writeln(LogFile, DateTimeToStr (Now) + ':' + E.Message);

  CloseFile(LogFile);

 

  if not SilenceCheck.Checked then Application.ShowException(E);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

  a, b, c: Integer;

begin

  a := 10;

  b := 0;

  c := a div b;

  ShowMessage (IntToStr (c));

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  raise Exception.Create ('raise button pressed');

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  Application.OnException := LogaExcecao;

end;