HI
FreeAndNil ist eine Delphi-Prozedur aus der Sysutils-
Unit.
Der interne Aufbau sieht wie folgt aus:
Delphi-Quellcode:
procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
Temp := TObject(Obj);
Pointer(Obj) := nil;
Temp.Free;
end;
Zuerst wird Temp das Objekt (die Komponente oder sonst was) zugewiesen. Dann wird der VAR-Parameter auf nil gesetzt. -> Fazit: er ist
eindeutig nil. Danach wrd noch das Objekt aus dem Speicher geräumt.
Achtung: Da .Free von TObject aufgerufen wird, darf diese Prozedur nirgendwo überschrieben werden, was bei manchen Programmierern manchmal vorkommt. Zerstört wird in .Destroy.
Bernhard