try..except Gemeinsame Anweisung definieren

[Ares]

Hallo!

Ich will in einem try..Except Block gerne verschiedene Exceptions getrennt behandeln und außerdem einige Aktionen ausführen, die bei allen Exceptions notwendig sind. Kann man die gemeinsamen Aktionen in den Except-Block einfügen ohne diese für jede Exception angeben zu müssen?

Delphi-Quellcode:

try
  irgendwas();
except
  TuWasAllgemeines();    // <-- Fehler, wird "on Exception do" verwendet ist dies ungültig.

  on EEinFehler do ...;
  on ENochEinFehler do ...;

Besten Dank
Ares

[himitsu]

Das aktuelle Exception-Objekt ist in der Unit System in der Variable ExceptObject gespeichert ... also etwa so:

Delphi-Quellcode:

try
  irgendwas();
except
  TuWasAllgemeines();

  if ExceptObject is EEinFehler then begin
    ...
  end else if ExceptObject is ENochEinFehler then begin
    ...
  end;
end;

[Muetze1]

ExceptObject ist nicht reentrant und nicht thread-safe, weshalb es sich innerhalb der If Abfragen verändern kann. Darauf hatte jbg schon einmal hingewiesen, als ich auch mit ExceptObject gearbeitet hatte. Eine bessere Lösung wäre folgende:

Delphi-Quellcode:

try
  irgendwas();
except
  on e: exception do
  begin
    TuWasAllgemeines();    // <-- Fehler, wird "on Exception do" verwendet ist dies ungültig.
    
    if e is EEinFehler then
    begin
      ...;
    end
    else if e is ENochEinFehler then
    begin
      ...;
    end;
  end;
end;