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;