finally: if "exception exists" then ... else ... Ist das möglich?

[Alaitoc]

Delphi-Quellcode:

function DoSomething(IntVal: integer): integer;
var
  Dings: TDings;
begin
  Dings := TDings.Create;
  try
    try
      Result := 10 div IntVal;
    except
      ShowMessage('Oops')
    end;
  ShowMessage('Alles prima');
  Dings.TuEinfachNochwas();
  finally
    Dings.Free;
  end;
end;

Dann halt so!
Ich fand das Flag einfach nur unnötig, deshalb die ganze Geschichte...

PS: Ich glaub wenn du einen Mod leib bittest, verschiebt der dir das Thema auch einfach in das andere Forum ohne einen zweiten Thread zu erstellen.

MfG Alaitoc