Problem mit TObjectList in mehreren Ebenen

[bjoern]

Hi,

also erstmal danke.

aber warum konnte ich das selbe Objekt denn direkt aus dem Hauptprogramm adden?

Delphi-Quellcode:

var
   List : TFirstList;
   MyObject : TBaseClass;
begin
  MyObject := TBaseCLass.Create;
  MyObject.MyClass := 'Mein Test';
  List := TFirstList.Create;
  // Das add in FirstList ruft NICHT add von SecondList auf.
  List.Add(MyObject);
  List[0].SecondList.Add(MyObject);

Jetzt habe ich leider nur eine Teil Lösung.

Was mach ich denn falsch, wenn ich diese Strucktur aufbauen möchte mit einem Basisobjekt?

Zur Sinn frage:
Basisobject wird später Daten aus einer Datei laden und diese zur Verfügung stellen.
In meinem Fall Patientendaten.
Eine Datei hat immer daten zu einer Studie und einer Serie.
Der Patient kann mehrere Studien haben oder in einer Studie mehrere Serien.
Mein Ziel Mehrere Dateien laden jeweils eine Basisklasse und der entsprechenden Liste adden.

Also ein Tipp wie ich nur mit der Basisklasse de Listen aufbauen kann?

Gruß

Björn