Fehler abfangen: Welche Möglichkeiten?

[TeTSuO]

[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