Dann lohnt sich Vererbung der Klassen erstmal nicht, da sie ja nichts gemeinsam haben, was sie erben könnten.
Delphi-Quellcode:
type
TKindklasse1 = class
...
end;
TKindklasse2 = class
...
end;
TElternklasse = class
private
FKind1: TKindklasse1;
FKind2: TKindklasse2;
public
property Kind1: TKindklasse1 read FKind1;
property Kind2: TKindklasse2 read FKind2;
end;
Oder eben so, da sie ja mit der Elternklasse absolut nichts gemeinsam haben.
Aber da die Kindklassen auch nicht wirklich was gemeinsames haben, dann doch eher Ersteres.
Delphi-Quellcode:
type
TKindklasse = class
end;
TKindklasse1 = class(TKindklasse)
...
end;
TKindklasse2 = class(TKindklasse)
...
end;
TElternklasse = class
private
FKind1: TKindklasse1;
FKind2: TKindklasse2;
public
property Kind1: TKindklasse1 read FKind1;
property Kind2: TKindklasse2 read FKind2;
end;
PS: Das würde eine Endlosschleife, wenn man da im Constructor der Elternklasse die Kindklassen erzeugt und dabei die Kindklassen von der Elternklasse erben,
denn dann hätten die Kinder wiederum eigene Kinder, welche ebenfalls Kinder hätten, die Kinder hätten usw.