Jaaaa, also wenn man den Code genauso nimmt, wie er dort steht, dann knallt es natürlich
ich glaub es war auch mehr so gemeint
Delphi-Quellcode:
object.Free;
if Assigned(object) -> liefert Müll
Delphi-Quellcode:
FreeAndNIL(object);
if Assigned(object) -> liefert immer False (weil object NIL ist)
[edit]
genau @Hawkeye219
@taaktaak:
doch doch
Delphi-Quellcode:
procedure TObject.Free;
begin
if Self <> nil then
Destroy;
end;
procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
Temp := TObject(Obj);
Pointer(Obj) := nil;
Temp.Free;
end;