Zitat von
Sanchez:
Hallo,
FreeAndNil befindet sich übrigens in der
Unit sysutils. Normalerweise solltest du die schon automatisch in den uses haben.
Aber es macht sowieso nicht merh als zuerst Free und danach nil zuweisen.
Im Prinzip ja, aber so einfach ist es nicht.
Delphi-Quellcode:
procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
Temp := TObject(Obj);
Pointer(Obj) := nil;
Temp.Free;
end;