"FinalllyExit" gewünscht

[Namenloser]

@stahli: Aber genau was du beschreibst, das macht doch try-finally. Verabschiede dich doch mal von dem Gedanken, dass try-finally immer was mit Fehlern zu tun hat.

Delphi-Quellcode:

procedure xyz;
begin
  A := TA.Create;
  B := TB.Create;
  ...
  FinallyExit:
  A.Free;
  B.Free;
end;

ist 100% äquivalent zu

Delphi-Quellcode:

procedure xyz;
begin
  try
    A := TA.Create;
    B := TB.Create;
    ...
  finally
    A.Free;
    B.Free;
  end;
end;

(auch wenn das so, wie bereits gesagt, wenig sinnvoll ist)