Try except - Functions - wie tief

[Sir Rufo]

Mit deinem try ... except fängst du die Fehlermeldungen ab un danach gibt es keinen Fehler mehr.

Darum ist das ja auch totaler Humbug.

Delphi-Quellcode:

implementation

{$R *.DFM}

function DieZweiteFUNC(A_egal: string): boolean;
begin
  raise Exception.Create( 'simulierter Fehler' );
  ShowMessage( A_egal ); // wird nicht ausgeführt 
end;

function checkit(Bla: string; Blubb: string): boolean;
begin
  DieZweiteFUNC('rufe zweite');
  ShowMessage( Bla + Blubb ); // wird nicht ausgeführt
end; // END FUNCTION

procedure TForm1.Button1Click(Sender: TObject);
begin
  checkit('A', 'C');
  ShowMessage( 'Alles schick' ); // wird nicht ausgeführt 
end; // END FUNC

Nach dem ButtonClick kommt eine Dialogbox mit der Fehlermeldung "simulierter Fehler"