Wieder probleme mit Record und LV

[Christian Seehase]

Moin Daniel B,

Du musst für jede Zeile die Du im Listview hinzufügen willst ListView.Item.Add ausführen.

Code:

[b]procedure[/b] TMainFormMC2004.LVLokFuellen; 
[color=#000080]//ListView KK Loks mit Daten aus dem Loks-Record füllen [/color]
[b]var[/b] 
  i: integer; 
[b]begin[/b] 
  ListViewKKLok.Clear; 
  [b]for[/b] i := 0 [b]to[/b] MC2004.MenueInit.LokAnzahl -1 [b]do[/b] 
  [b]begin[/b] 
    [color=red]ListViewKKLok.Items.Add;[/color]
    [b]with[/b] ListViewKKLok.Items.Item[ListViewKKLok.Items.Count -1] [b]do[/b] 
    [b]begin[/b] 
      Caption := IntToStr(MC2004.MenueInit.LokStamm[i].LokID); 
      SubItems.Add(MC2004.MenueInit.LokStamm[i].LokName); 
      SubItems.Add(IntToStr(MC2004.MenueInit.LokStamm[i].LokAdresse)); 
      SubItems.Add(IntToStr(MC2004.MenueInit.LokStamm[i].LokTraeg)); 
      SubItems.Add(IntToStr(MC2004.MenueInit.LokStamm[i].LokBeschl)); 
      SubItems.Add(IntToStr(MC2004.MenueInit.LokStamm[i].LokVerzoeg)); 
    [b]end[/b]; 
  [b]end[/b]; 
[b]end[/b];