Free oder FreeAndNil=

[himitsu]

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;