ObjectList in ObjectList

[stahli]

"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.

[Captnemo]

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.

[jaenicke]

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])

[Bummi]

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;

[Captnemo]

Grrrrrrrr Danke.

Das hätt ich natürlich sehen können / müssen.

Also ist meine Vorgehensweise richtig.

[Bummi]

Hit shappens ...