Try - except - finally

[bernau]

Habe ich mir nie gedanken drüber gemacht.

Ist ein except nicht irgendwie ein finally.

Alles was nach dem except-Block kommt, wird doch abgearbeitet, da die Fehler ja im Exceptblock abgefangen werden.

Free wird doch bei beiden Funktionen aufgerufen und somit ist doch alles schön aufgeräumt.

Delphi-Quellcode:

begin
  sl:=TStringlist.create;
  try
    EineFehlerhafteProcedure
  except
    // hier eine schöne Fehlermeldung
  end;
  sl.free;
end;

Delphi-Quellcode:

begin
  sl:=TStringlist.create;
  try
    EineFehlerhafteProcedure
  finally
    sl.free;
  end;
end;