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.
