Einzelnen Beitrag anzeigen

sko1

Registriert seit: 27. Jan 2017
601 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#1

Except Block erweitern

  Alt 27. Jul 2017, 10:51
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
  Mit Zitat antworten Zitat