Code nach finally wird nicht ausgeführt

[Luckie]

Ich arbeite gerade an meinem Exception Tutorial. Dafür habe ich folgendes Demo entwicklet:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  try
    i := 5;
    ShowMessage(IntToStr(i));
    exit;
  finally
    i := 0;
  end;
  ShowMessage(IntToStr(i));
end;

Jertzt musste ich zwar festellen, dass das letzte ShowMessage zwar kompiliert wird, es wird nur nicht aufgerufen beim Ausführen. Woran liegt das? :shock: Die Optimierung, habe ich schon deaktiviert.

[Dax]

Wenn ich die OH richtig verstanden habe, wird bei einem Exit in einem try-Block der finally- bzw. except-Teil noch ausgeführt, danach springt das Programm aus der Prozedur/Funktion raus.

[Luckie]

*patsch* :oops: Genau das war es. Danke.

[Robert_G]

exit ähnelt dem RETURN aus anderen Sprachen. ;)

[Luckie]

Ich weiß. ;)