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!

[bjoern]

Hi,

also in meinem Beispiel hatte ich die FirstList.Add abgeändert und den aufruf vo SecondList.Add rausgenommen und dann klappt mein Beispiel. Okay warum das funktioniert ist mir jetzt bewusst(Type Cast).

Aber wie muss ich meine Aufrufe gestallten, wenn ich die alle Listen mit der Add Routine aufbauen möchte und das mit der Basisklasse als Parameter?
Und das so das die Objekte und deren Listen sich mit ihrer jeweiligen add Routine aufbauen?

Gruß

Björn