Access violation mit free???

[Luckie]

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;