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