FreeAndNil löscht nur ein Objekt bei gleicher Referenz

**enigma**

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

zusammenfalten · markieren

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;

FreeAndNil löscht nur ein Objekt bei gleicher Referenz

FreeAndNil löscht nur ein Objekt bei gleicher Referenz

Stichworte

Forumregeln