Exceptions speichern

[Fussball-Robby]

Na, dann wollen wir mal nich so sein
Also, zuerst machst du dir ne Prozedur, in der die Fehler behandelt und gespeichert werden. Hier mal eine Idee:

Delphi-Quellcode:

procedure TForm1.AppException(Sender: TObject; E: Exception);
var
  FName: String;
  List: TStrings;
begin
  FName := ExtractFilePath(ParamStr(0)) + 'Errors.log';
  List := TStringList.Create;
  try
    with List do
    begin
      if FileExists(FName) then
        LoadFromFile(FName);
      Add('[' + DateToStr(Now) + ' / ' + TimeToStr(Now) + ']' + ' ' + E.Message);
      SaveToFile(FName);
    end;
  finally
    FreeAndNil(List);
    Application.ShowException(E);
    Application.Terminate;
  end;
end;

Wichtig: die Parameter müssen so bleiben!

Dann weist du deine Prozedur dem OnException-Ereignis zu:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := AppException;
end;

Und schon fertig

Mfg