listview 1ste spalte füllen ?

[agm65]

hallo leute, diese listview raubt mir den letzten nerv..
also ich möchte so: die erste spalte füllen:

Delphi-Quellcode:

sl:tstringlist;


var
i:integer;

begin
  for i := 0 to sl.Count do
  begin
  listview1.Items[i].Caption := sl.strings[i]
  end;

aber irgendwie macht er das nicht...hat jemand eine idee ?

[s-off]

Hallo,

Delphi-Quellcode:

var
   ListItem: TListItem;
begin
   ListItem := ListView1.Items.Add;
   ListItem.Caption := 'Spalte1';
   ListItem.SubItems.Add('Spalte2');
   ListItem.SubItems.Add('Spalte3');
end;

Edit: Der Vollständigkeit halber

[agm65]

sorry, das habe ich auch schon getestet aber das macht mir zeile 1 ,2 usw nicht die spalte 1 !

[s-off]

Nein, das gezeigte Konstrukt füllt Dir in Zeile 1 die Spalten 1, 2 und 3.

Edit:

Wenn Du das Ganze in einer Schleife durchlaufen möchtest, ändert das nichts:

Delphi-Quellcode:

var
   ListItem: TListItem;
   i: Integer;
begin
   for i := 0 to StringList.Count - 1 do
   begin
      ListItem := ListView1.Items.Add;
      ListItem.Caption := 'Spalte ' + IntToStr(i);
   end;
end;

Damit hättest Du i + 1 Zeilen und in jeder die erste Spalte gefüllt mit Spalte + Laufvariable

[agm65]

ja so gehts, danke !

[s-off]

Ähm ja - sorry - ViewStyle muss auf vsReport stehen.