try..except im try..except - Reihenfolge des Aufrufes

[haentschman]

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ß.

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...