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

[DeddyH]

Und wie soll er das im finally dann auswerten? Wie schon gesagt, mein Vorschlag wäre so etwas:

Delphi-Quellcode:

function DoSomething(IntVal: integer): integer;
var
  SomethingWentWrong: Boolean;
  Dings: TDings;
begin
  SomethingWentWrong := false;
  Dings := TDings.Create;
  try
    try
      Result := 10 div IntVal;
    except
      SomethingWentWrong := true;
    end;
  finally
    Dings.Free;
    if SomethingWentWrong then
      ShowMessage('Oops')
    else
      ShowMessage('Alles prima');
  end;
end;