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 