ObjectList in ObjectList

[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;