Unit mit Objekten aufteilen

[mjustin]

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.