Puh, da ist einiges falsch.
Das Create gehört
vor den try.
Dass das obige "sl1.Free;" funktioniert, liegt vielleicht nur daran, dass bei TStringList zufällig nichts schlimmes passiert.
Free ruft Destroy() auf und wenn dort auf Felder zugegriffen wird, dann gibt es zwangsläufig eine Schutzverletzung.
Wenn bei obigem "// beliebiger code hier" eine
Exception passiert, dann bleibt sl1 nil
"Dass die Methode Free auf nil prüft" ist auch falsch. FreeAndNil prüft dagegen.
Bitte, erst informieren, dann dementieren.
Das Create kann stehen wo will.
Delphi-Quellcode:
var
f: TObject;
begin
f := TObject.Create;
try
finally
f.Free;
end;
end;
oder
Delphi-Quellcode:
var
f: TObject;
begin
f := nil;
try
f := TObject.Create;
finally
f.Free;
end;
end;
Ist beides gleichwertig. Die zweite Variante macht allerdings nur dann richtig Sinn, wenn man mehrere Instanzen mit einem Resourcen-Schutzblock absichern kann/will.
Das mit dem Free und nil hat Uwe ja schon erklärt.
Manchmal ist Erkenntnis nur einen Klick entfernt und da wundert man sich halt schon manchmal über das was hier an Wissen offenbart wird.