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

[Die Muhkuh]

Autsch, warum Terminieren nach der Exception?

[shmia]

Zitat von Tommy1988:

Naja, so gesehen möchte ich nur erreichen , dass ich zum schluss weis "wie man sowas macht"..

Exception Tutorial

[DeddyH]

Zitat von Die Muhkuh:

Autsch, warum Terminieren nach der Exception?

Machst Du das nicht?

[sirius]

@Fusballrowdy:
-Zur Vereinfachung gibt es noch TApplicationEvents, da kann man das einfach anklicken
-Was passiert mit Exceptions, welche direkt in der Funktion abgefangen werden (try..except..end) ?
-Wieso Terminate wurde ja schon gefragt.

[Die Muhkuh]

Zitat von DeddyH:

Zitat von Die Muhkuh:

Autsch, warum Terminieren nach der Exception?

Machst Du das nicht?

Nein, ich hab nen kleinen Dialog, da kann der Benutzer entscheiden, ob er das Programm weiterlaufen lässt, neustartet oder terminiert.

[DeddyH]

Den kenn ich schon

[Tommy1988]

Mh, ich erkläre mal schematisch was ich gemacht hatte:

stringlist erstellen
absichtlich einen fehler machen (double-wert einer integer-variablen zuweisen)
=> fehler kommt
=> => on ex: Exception do
ShowMessage('Exception detected:' +#13+
ex.message);
text := ex.Message; // hier war spätestens der fehler.

ich werde mir das tutorial mal verinnerlichen =)

[Fussball-Robby]

Zitat von sirius:

Fusballrowdy

Terminate ist Quatsch, ja. Ich hab das vor einem halben Jahr oder so das letzte mal benutzt und jetzt nur ausm Kopf runtergetippt. Sorry

[Tommy1988]

Das mit dem Terminate ist ja aber schon seltsam .. egal.

Ich habs weggenommen.

Merci, ich verstehe diese ganze Sache jetzt .