Except Block erweitern

[sko1]

Weil wir eben (Gelöschte Datei immer noch vorhanden) beim Exception abfangen waren:

Delphi-Quellcode:

  
  except
    on E: Exception do
      LogAusgabe(E.ClassName + ' in MyFunction : ' + E.Message);
  end;

funktioniert, aber wie kann ich im Except - Block weitere Anweisungen platzieren (z.B. eine globale Fehlervariable setzen?

Delphi-Quellcode:

  except
    on E: Exception do
      LogAusgabe(E.ClassName + ' in MyFunction : ' + E.Message);
    GlobalError := true;
  end;

bringt Compilerfehler, Versuche mit begin/end brachten ebenfalls keinen Erfolg!

Ciao
Stefan

[nahpets]

Delphi-Quellcode:

except
  on E: Exception do begin
    LogAusgabe(E.ClassName + ' in MyFunction : ' + E.Message);
    GlobalError := true;
  end;
end;