Hi,
ich möchte mir eine Klasse basteln, die selbst eine ObjectList beinhalten soll. Bzw. die Object in der der ObjectList sollten ggf. selbst auch eine ObjectListe beinhalten können.
Leider fehlt mir hierbei die Erfahrung mit Klassendesign.
Also so etwas wie:
Delphi-Quellcode:
Type
TFahrer = class(TObject)
nachname: string;
vorname: string;
alter: integer;
end;
Type
TAuto = class(TObject)
Kennzeichen: string;
Modell: string;
Fahrer: TFahrer;
end;
.
.
.
TMyAuto = class(TObjectList)
protected
function getItem(index: Integer): TAuto; virtual;
procedure setItem(index: Integer; Auto: TAuto); virtual;
public
procedure items[index: Integer]: TAuto read getItem write setItem; default;
.
.
end;
Jetzt kann ich mir die ObjectList mit
MyAuto:=TMyAuto.create; erzeugen.
Aber wie erzeuge ich in der Klasse TAuto die ObjectListe für TFahrer so, dass ich z.B. mit
MyAuto[0].Fahrer[1].Nachname zugreifen kann, oder mit MyAuto[0].Fahrer.Add(TestFahrer) Objecte hinzufügen kann?
Kann sein, dass ich mich jetzt hier nicht glücklich ausgedrückt habe, aber ich hoffe es ist deutlich geworden, was ich meine. Oder ist der Ansatz komplett falsch?