[quote]
Ich mach das mit abfangen auch mit der Kompo
Bei einem Fertigen Progamm sieht das bei mir so aus
Delphi-Quellcode:
Const
...
appRelease = True;
LogErrors = True;
Var errLog: TStringList;
...
////////////////////////////////////////////////////////////////
//
// Fehlerbehandlungsroutine (TApplicationEvents.OnException)
//
procedure TfMain.OnAppException(Sender: TObject; E:
Exception);
begin
// wenn Fehler Speichern
if bLogErrors
Then Begin
// Fehlernachricht speichern
errLog.Add(E.
Message);
errLog.SaveToFile(appfileLogFile);
// speichern in TEMP\errors.log;
End;
// Fehler für Release (Veröffentlichungs) Version ausblenden
if not appRelease
Then E:=nil;
end;
...
initialization
errLog:=TStringList.Create;
errLog.Clear;
finalization
errLog.Destroy
end.
Wenn ich noch eine Testversion programmiere setze ich im Quelltext
Delphi-Quellcode:
Const
...
appRelease = False
LogErrors = False