Guten Abend alle miteinander...

folgende Konstellation:

zusammenfalten · markieren

Delphi-Quellcode:

try
.
.
A;
.
.
except
  CodeA;
end;

procedure A;
begin
  try
    .
    .
  except
    CodeB
  end;
end;

- Procedure A wird in einem try/except Block ausgeführt.
- in der Procedure A steht ebenfalls ein try/except Block.

tritt in Procedure A in dem try/except Block eine Exception auf wird CodeA ausgeführt.
ich dachte eigentlich, daß die Reihenfolge CodeB, wenn die Exception in Procedure A auftritt bzw. CodeA wenn die exception in einer der anderen Anweisungen des ersten try/except auftritt.

Frage: kann ich die Priorität beeinflussen oder ist das as Designed

Danke für Infos.

wenn zwischen dem Try-Except in ProcedureA ein Fehler auftritt sollte CodeB ausgeführt werden und CodeA gar nicht außer du wirfst du Exception erneut. Wenn das bei dir anders ist hast du irgendwas kaputt gemacht

Zitat:

außer du wirfst du Exception erneut.

hatte ich vergessen zu erwähnen.
- in jedem except setze ich einen speziellen internen Fehlertext und löse die Exception erneut aus.
- dann hast du Recht und die Exception kommt in dem anderen except raus, dann wieder raise und ich lande in meiner Fehlerbehandlung.

Gibt es eine Möglichkeit gleich in der "globalen" Fehlerbehandlung zu landen bei jedem einzelnen except unabhängig von der "Verschachtelung" ?

Die Fehlerbehandlung: Application.OnException:= eAVException;

Danke für die schelle Antwort.

Lasse den lokalen Block weg. Ab D2009 kann man hierarchische Handler verwenden ( Verschachtelung)

Du könntest Application.OnException selbst aufrufen:

markieren

Delphi-Quellcode:

if Assigned(Application.OnException) then
  Application.OnException(...);

Zitat:

Lasse den lokalen Block weg.

...das geht so einfach nicht.

- auf der einen Seite brauche ich den in Procedure A weil diese von verschiedenen Stellen aufgerufen wird.
- zum anderen brauche ich den den anderen um die restlichen Anweisungen und blöderweise Procedure A mittendrin.

...ich könnte den den ganzen Block in 2 Blöcke aufsplitten und Procedure A blank stehen lassen.

markieren

Delphi-Quellcode:

if Assigned(Application.OnException) then
  Application.OnException(...);

das raise durch den Aufruf ersetzen... ok... gute Idee
die 3 Punkte stellen den Procedur Namen meiner Fehlerbehandlung dar ?

Danke an alle...

Zitat von mkinzler:

Lasse den lokalen Block weg. Ab D2009 kann man hierarchische Handler verwenden ( Verschachtelung)

Laut Profil hat er aber Delphi 2006

Schon klar, war auch nur informativ

Danke für Eure Hilfen...

Durch das rumprobieren habe ich gleich noch einen tollen Effekt herausgefunden. FastReport -> frReport.LoadFromFile schmeißt bei fehlendem File keine Exception sondern ist nur False. Das heißt, daß ich mir den einen Block sowieso sparen kann und ich bei fehlendem File selbst eine Exception werfen muß.

zusammenfalten · markieren

Delphi-Quellcode:

var E: Exception;
begin
  E:= Exception.Create('Formular ist nicht vorhanden oder beschädigt');
  try
    .
    .
    if not frReport1.LoadFromFile(DBPfad + 'Formulare\21.fr3')then
      begin
        Application.OnException(self,E);
        exit;
      end;
    Formular21;
  finally
    E.Free
  end;

procedure Formular21;
try
  .
except
  FehlerCode:= 'E165';
  Fehlerstatus:= False;
  Fehlertext:= 'Datenaufbereitung Formular 21 fehlgeschlagen. ';
  raise;
end;

also... erledigt aber wieder was gelernt.

Danke an alle...