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:

zusammenfalten · markieren

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?

Das Feld Fahrer muss einfach im Konstruktor von TAuto erzeugt und im Destruktor wieder freigegeben werden.

Dabei muss man aber aufpassen, dass die eigene Referenz dann nicht als Element der Liste bzw. "Unterliste" auftaucht, sonst kann das ungeahnte Konsequenzen haben.

zusammenfalten · markieren

Delphi-Quellcode:

Type
  TFahrer = class(TObject)
    nachname: string;
    vorname: string;
    alter: integer;
  end;

  TFahrerList = (TObjectList)
  protected
    function getItem(index: Integer): TFahrer ; virtual;
    procedure setItem(index: Integer; Auto: TFahrer); virtual;
  public
    procedure items[index: Integer]: TFahrer read getItem write setItem;
  end;

  TAuto = class(TObject)
    Kennzeichen: string;
    Modell: string;
    Fahrer: TFahrerList; // muss natürlich im Create/Destroy berücksichtigt werden
  end;


TAutoList = 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;

PS: Virtual? oder doch lieber Override?

Tipp: guck dir mal TStrings und TStringList an. Da kannst du dir schon paar Anregungen holen.

Wobei, es gibt ja paar Möglichkeiten:

du erbst deine Klasse aus TObjectList. Selbstzugriff z. B. über Self (edit: ach, das hast du ja bereits)

oder es ist ein Feld, du erstellst es mit Create und arbeitest damit.

Zitat von DanielJ:

PS: Virtual? oder doch lieber Override?

Macht ja nur Sinn, wenn Du von dieser Klasse noch ableiten willst. In dem Fall dann virtual in der Basisklasse und override und der abgeleiteten.

"Fahrer: TFahrerList;"

Auch wenn das grammatikalisch natürlich korrekt ist, würde ich das Feld auch FahrerList (o.ä. wie z.B. "Drivers") nennen, zumal es eine Klasse TFahrer gibt und Missverständnisse damit vorprogrammiert sind.

Ich habe jetzt mal ein wenig rumprobiert. Soweit klappt das ganz gut, aber beim Erzeugen eines Objectes TKunde (analog zu dem oben genannten TAuto) kann ich dem daruterliegenden TFahrzeug (analog zu dem TFahrer) nicht eintragen.

Weil das so blöd zu beschreiben ist, habe ich mal meinen Source beigepackt. Vielleicht mag sich das einer anschauen, ob ich das soweit richtig gemacht habe.

markieren

Delphi-Quellcode:

var
  li: TListitem;
  i: Integer;
begin
  lv_fzg.Clear;
  for I := 0 to Kunden[i].fahrzeuge.Count-1 do

Zitat:

[DCC Warnung] main.pas(249): W1036 Variable 'i' ist möglicherweise nicht initialisiert worden

(Bezogen auf Kunden[i])

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.LeseFahrzeuge(index: Integer);
var
  li: TListitem;
  i: Integer;
begin
  lv_fzg.Clear;
  for I := 0 to Kunden[index].fahrzeuge.Count-1 do //BAUSTELLE index statt i
  begin
    li:=lv_fzg.Items.Add;
    li.Caption:=Kunden[index].fahrzeuge[i].kz;
    li.SubItems.Add(Kunden[index].fahrzeuge[i].modell);
    li.SubItems.Add(GUIDToString(Kunden[index].fahrzeuge[i].guid));
  end;
end;