Prüfung auf Assigned(MyObject) true obwohl MyObject nicht initialisiert wurde

[Schokohase]

Zitat von freimatz:

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.

[freimatz]

Dazu gibt es ja zum Glück das Forum.
Asche auf mein Haupt. Tut mir leid.
Ich war mir so sicher ... War das schon immer so?

Lustig: Habe nach "procedure TObject.Free;" bei mir gesucht und gefunden:

Delphi-Quellcode:

procedure TObject.Free;
begin
  Dispose(PObject(@Self), Done);
end;

Allerdings stand oben drin "Turbo Pascal Version 7.0"