StringList-Objekte wie freigeben?

[Sharky]

Zitat von PeterPanino:

Kannst du das mal im Detail erklären?

Hai PeterPanino,

eine "Variable" die auf ein TObject zeigt ist nur ein Pointer (Referenz) auf einen Speicherbereich.
Wenn Du nun ein Objekt erzeugst wird der dafür notwendige Speicher reserviert und die "Variable" zeigt auf diesen.
Beim Aufruf von .Free wird nur der reservierte Speicher freigegeben, die Variable zeigt aber noch immer auf eine Speicheradresse.

Wenn Du dir jetzt den Code von TObject.Free ansiehst erkennt man das dieser einen Feher produziert wenn man zweimal .Free für eine Referenz aufruft:

Delphi-Quellcode:

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

Da Self ja nicht auf nil gesetzt wird.

Anders ist es bei FreeAndNil. Dort wird nach dem freigeben die Referenz auf nil gesetzt. Darum verursacht ein erneuter Aufruf von .Free keinen Fehler.

Delphi-Quellcode:

procedure TDemoForm.btn_testClick(Sender: TObject);
var
  StringList: TStringList;
begin
  StringList := TStringList.Create;
  StringList.Free;
  StringList.Free; // Fehler. Das Objekt wurde schon zerstört. Nur seine Refernz ist noch da

  StringList := TStringList.Create;
  FreeAndNil(StringList);
  StringList.Free; // Kein Fehler da die Referenz auf nil gesetzt wurde.

  StringList := TStringList.Create;
  StringList.Free;
  StringList := NIL;
  StringList.Free; // Kein Fehler da die Referenz auf nil gesetzt wurde.
end;

[Edit] Da schreibe ich mir die Flossen wund und mkinzler erkärt das in zwei Sätzen