Ich würde es mal so versuchen:
Delphi-Quellcode:
type TPKW = class
Jeep: TJeep
procedure Fahren;
end;
type TJeep = class
Wuestenjeep: TWuestenjeep;
GelaendeIndex: Integer;
end;
type TWuestenjeep = class
procedure Springen;
end;
Damit könntest du dann in solche Konstrukte bauen: PKW.fahren; PKW.Jeep.GeleandeIndex; PKW.Jeep.Wuestenjeep.Springen; Trotzdem würde ich dir die gute alte Vererbung empfehlen.
Hoffe es hilt dir beim
Mfg HalloDu
EDIT: Ich kann meinen Vorrednern nur zustimmen: Versuch es mit Vererbung.