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

[RSE]

Hallo,

ist es möglich, in einem finally-Block herauszufinden, ob eine Exception ausgelöst wurde? Ich möchte die Exception nicht behandeln, muss aber anders reagieren, falls eine Exception existiert.

[DeddyH]

Du könntest noch einen try-except-Block einfügen und dort eine Variable entsprechend setzen. Übrigens: einmal reicht doch?

[uligerhardt]

Deddys Antwort gefällt mir eigentlich besser, aber der Vollständigkeit halber: Vielleicht macht

Delphi-Quellcode:

if Assigned(ExceptObject) then

, was du willst.

[Angel4585]

Sowas vielleicht?

Delphi-Quellcode:

try
...
except
  on e:myexception do
    begin
    //tu was du willst
    raise e;
    end;
  end;

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

[Alaitoc]

Wäre es nicht einfacher das ohne finally zu realisieren?

Delphi-Quellcode:

function DoSomething(IntVal: integer): integer;
begin
  try
    try
      Result := 10 div IntVal;
    except
      ShowMessage('Oops')
    end;
    ShowMessage('Alles prima');
end;

Sollte doch so funktionieren....denke ich.

MfG Alaitoc

[DeddyH]

Das war ja auch nur ein einfaches Beispiel. Wenn da noch temporär Objekte angelegt werden, braucht man ja doch wieder ein finally.

[edit] Hab das Beispiel dahingehend erweitert [/edit]

[RSE]

@DeddyH:
Einmal reicht, aber das richtige Forum is noch besser ;-)

@All:
Ich lese aus euren Antworten, dass es keinen Sprachkonstrukt für mein Vorhaben gibt. Demzufolge muss ich wohl den Umweg über die doppelte try machen (außen finally, innen except). Vielen Dank für die blitzartige Antwort!

@Alaitoc:
Ohne finally wirds wohl nicht: Ich möchte in meinem finally ein Objekt freigeben. Falls eine Exception aufgetreten ist, muss ich aber vorher noch was "vorbereiten". Also werd ich wohl um den Doppelkonstrukt nicht umhinkommen.

[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

[DeddyH]

Ach, darum ging es. Ich hatte das ja nur so gemacht, weil der TE meinte, er will das im finally wissen, um da noch entsprechend zu reagieren (was bei sehr komplexen Codes IMHO für mehr Übersicht sorgen kann, nicht dass man später noch auf etwas zugreift, was man aufgrund des Fehlers bereits freigegeben hat).