EAccessViolation bei Free()

[MaBuSE]

Zitat von hitzi:

Eine letzte Frage dazu. fPim.Free und fPim := nil funktionieren ja - wieso funktioniert FreeAndNil(fPim) nicht? Bei FreeAndNil wird nicht! die Procedure TMobilePIM.Free aufgerufen.

Das sollte eigentlich funktionieren.

FreeAndNil ist in der SysUtils enthalten und hat folgenden Quelltext:

Delphi-Quellcode:

...
{ Copyright (c) 1995-2002 Borland Softwrare Corporation                   }
...
unit SysUtils;
...
procedure FreeAndNil(var Obj);
var
  Temp: TObject;
begin
  Temp := TObject(Obj);
  Pointer(Obj) := nil;
  Temp.Free;
end;
...

Es wird also die Free Methode des Objektes aufgerufen.