Daten in einer Klassenhierachie ablegen

[steewan]

Hallo,

ich weiß nicht genau wie ich in Object Pascal an folgendes Problem herangehe. Ich möchte gerne die Struktur eines Autos zum Beispiel in einer Klassenhierachie ablegen. Beispiel:

Auto besteht aus Karosserie, Reifen, Türen, etc. Die Klasse TAuto soll also eine Liste enthalten, welche dann die anderen Objekte TKarosserie, TReifen, TTÜren enthält. Es kann jetzt natürlich vorkommen, dass ein Auto vier oder fünf Türen hat, bzw. die Türen auch wieder aus einer Struktur besteht. Es sollte also ein Objekt in TAuto geben, wo man andere hinterlegen kann:

TAuto
|
|- Objekte : Tweissnichwas

Jetzt soll TAuto.Objekte[1] := Karosserie; TAuto.Objekte[2] := Türen;. In Türen soll dann natürlich auch jede einzelene Tür hinterlegt sein. Also müsste TTüren ebenfalls eine Objektliste enthalten, welche dann immer ein Objekt TTür enthält mit den entsprechenden Eigenschaften. TAuto.Objekte[2] as TTüren.Obejekte[1] := Tür bzw. TTüren.Obejekte[2] := Heckklappe.

Wie bilde ich so etwas in Delphi ab, wie füge ich neue Objekte ein, wie kann ich auf Eigenschaften zugreifen, etc. Gibt es hierzu vielleicht ein gutes Beispiel oder eine Erklärung ??

Besten Dank
Stefan Blankenagel