Delphi-Quellcode:
Type
interface
TMyObj = Class(TObject)
FMyObjList: TMyObjList
end;
TMyObjList=Class(TObjectList)
FMy2ObjList: TMy2ObjList
end;
TMy2Obj = Class(TObject)
FMy2ObjList: TMy2ObjList
end;
TMy2ObjList=Class(TObjectList)
FMyObjList: TMyObjList
FMyObj:TMyObj
end;
implementation
Die Klasse TMy2Obj wird nicht referenziert, sie kann problemlos (unverändert) in eine eigene
Unit ausgelagert werden.
Mehr kann man anhand des Codes allein nicht sagen. Bei den anderen Klassen kommt es darauf an, welche im interface benötigt werden oder nur Hilfsklassen sind, die man auch komplett in den implementation Teil oder in andere Units verlagern könnte, wobei die Referenzen auf einen Vorfahrtyp umgestellt werden wie TObjectlist (was dann beim Zugriff einen unschönen Typecast erfordert). Schöner (aber etwas performancemindernd) wäre die Verwendung von Schnittstellentypen.