try..except Gemeinsame Anweisung definieren

[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;