hallo zusammen,
gibts ne möglichkeit eine procedur zu verlassen _ohne_ dass der finally-Block ausgeführt wird?


danke Gruss KH

exit;

auch bei Exit wird finally noch ausgeführt.

Das finally wird IMMER ausgeführt.
Du kannst natürlich einen Bool´sche Variable setzen und im finally diese Variable prüfen und je nachdem etwas dort ausführen.

Edit:

Bevor ich geschlagen werde.

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
       Exit;
  finally
    ShowMessage('Siehste?'); //wird ausgeführt
  end;
end;

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Exit;
  try

  finally
    ShowMessage('Siehste?'); //wird NICHT ausgeführt
  end;
end;

Zitat von Tyrael Y.:

auch bei Exit wird finally noch ausgeführt.

Das finally wird IMMER ausgeführt.
Du kannst natürlich einen Bool´sche Variable setzen und im finally diese Variable prüfen und je nachdem etwas dort ausführen.

ja , ich denke das werd ich machen.

danke euch


Gruss Kh

Warum soll der finally-Block nicht ausgeführt werden? Wenn er nicht ausgeführt werden soll, dann hast du die Funktion des finally-Blocks nicht verstanden oder du solltest dein Konzept noch mal überarbeiten.

Zitat von Luckie:

Warum soll der finally-Block nicht ausgeführt werden? Wenn er nicht ausgeführt werden soll, dann hast du die Funktion des finally-Blocks nicht verstanden oder du solltest dein Konzept noch mal überarbeiten.

naja ich wollte einfach im finally-block ein paar variablen zurücksetzen

Wie sieht denn deine Prozedur aus?
Eventuell läßt es sich ja anders lösen (nicht über Try-Finally).

Zitat von himitsu:

Wie sieht denn deine Prozedur aus?
Eventuell läßt es sich ja anders lösen (nicht über Try-Finally).

ja lässt sich machen.
ich setze einfach _innerhalb_ des Try-Blocks die boolsche variable und verzweige entsprechend