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;

[Shaman]

Aber warum haben die das denn so komisch gemacht mit dem temporären Objekt?

[Muetze1]

Moin!

Damit die Variable vor dem eigentlichen Free schon auf Nil gesetzt wurde. Wenn danach im Free irgendein Fehler oder Exception auftritt, dann ist trotzdem die Variable schon Nil und es wird somit kein zweites mal versucht die Variable frei zu geben.

MfG
Muetze1