Hallo,
ich verrstehe nicht, weshalb FreeAndNil nur ein Objekt (list) löscht
und auf nil setzt u. ein weiteres Objekt mit selber Adresse (den Parameter AObject) nicht.
Bei Objekten als Parametern gilt meines Wissens call by reference.
Oder sollte ich "procedure test(AObject: TObject)" mit "var" verwenden?
Danke für euere Tipps
Delphi-Quellcode:
procedure test(AObject: TObject);
begin
list := TObjectList<TDN>.Create;
list := TObjectList<TDN>(AObject); {list u. AObject zeigen auf dieselbe Adresse}
FreeAndNil(list);
// FreeAndNil(AObject); {das möchte ich mir sparen, da list u.AObject ja auf dieselbe Adresse zeigen}
ShowMessage('AObject = nil = ' + BoolToStr(AObject = nil) + #13+
{AObject <> nil}
'list = nil = ' + BoolToStr(list = nil) );
{list = nil}
end;