Hallo zusammen,
ich verstehe folgendes Problem nicht:
lList wird die Referenz auf TObjectList<TDN>(AObject) übergeben.
Wie unten zu sehen, hat TObjectList<TDN>(AObject) dieselbe Adresse wie AObject
(ist ja nur eine einfache Typumwandlung).
Allerdings hat lList eine andere! Adresse!
Mein Kenntnisstand ist bis jetzt der, dass Objekte bei Wertzuwiesung auf dieselbe
Adresse zeigen.
Vielen Dank für eure Tipps
Delphi-Quellcode:
TDN = class
...
end;
procedure freeAndNilRek2_3(AObject: TObject);
var
lList: TObjectList<TDN>;
lList := TObjectList<TDN>(AObject);
ShowMessage('Integer(@AObject) = ' + IntToStr(Integer(@AObject)) +#13+
{Selbe Adresse wie AObject}
'Integer( @TObjectList<TDN>(AObject) ) = ' + IntToStr(Integer( @TObjectList<TDN>(AObject) ) ) +#13+
{Andere Adresse wie AObject}
'Integer(@lList) = ' + IntToStr(Integer(@lList) ) );
end;