Problem mit TObjectList in mehreren Ebenen

[NormanNG]

Hi,

Zitat:

// Das add in FirstList ruft NICHT add von SecondList auf.

Auszug aus deiner Unit FirstClass:

Delphi-Quellcode:

{ TFirstList }

function TFirstList.Add(const Item: TBaseClass): integer;
var
   First : TFirstClass;
begin
  result := inherited Add(Item);
  First := self.GetItem(Result);
  First.SecondList.Add(Item);
end;

Mit diesem Konstukt sind First und Item identisch!