Delphi: OnError ResumeNext

[Larsi]

hi,
ich weiß noch, dass man bei vba ganz oben hinschreiben konnte, "on error resume next"(oder so ähnlich...). und meine frage ist jetzt, ob man sowas auch in delphi machen kann??
also in etwa so, dass man den ganzen text in ein try/except reinsteckt, sodass unbekannte fehler abgefangen werden...



MFG Lars Wiltfang

[sirius]

Entweder so (über Application.OnException):

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  application.OnException:=Excepte;
end;
procedure Tform1.Excepte(Sender:TObject;e:Exception);
begin
  showmessage('You did it again');
end;

Oder du nimmst dir TapplicationEvents (Palette "Zusätzlich") und findest dort dein Ereignis.

[Larsi]

genau das habe ich gesucht ganz großes thx

[Larsi]

aber delphi kennt kein element namens excepte muss ich da noch was in die uses eintraen???

[sirius]

Das ist eine private Methode, die ich in form1 gelegt habe. Du kannst die nennnen wie du willst.

[Larsi]

ich habs jetzt mit tapplicationevents gemacht jetzt gehts! aber wenn ich jetzt mit try und so noch einen anderen fehler abfange kaommt dann immer das bei excepte???

[sirius]

Zitat von Larsi:

ich habs jetzt mit tapplicationevents gemacht jetzt gehts! aber wenn ich jetzt mit try und so noch einen anderen fehler abfange kaommt dann immer das bei excepte???

Nö, wenn du ihn selber vorher abfängst, dann nicht. Wüsste jetzt auch nix anderes, ausser sehr tief im "System"-Code zu kramen.

[Larsi]

ok das wollt ich wissen thx