procedure verlassen

[khh]

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


danke Gruss KH

[mkinzler]

exit;

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

Edit:

Bevor ich geschlagen werde.

Delphi-Quellcode:

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

Delphi-Quellcode:

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

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

[khh]

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

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

[khh]

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

[himitsu]

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

[khh]

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