delphi 里ListView 用法 疑问

Question

tmpItem: TListItem;       
tmpItem := RzListView1.Items.Add;
tmpItem.Caption :='1';   //第1行第1列
tmpItem.SubItems.Add('2');//第1行第2列
tmpItem.SubItems.Add('3');//第1行第3列
tmpITem.SubItems.Add('4');//第1行第4列
为什么我增加的所有项 全是1啊 求解 刚用delphi 什么都不懂

Answer 1

测试了下没问题，   Columns 有4列么。 

Answer 2

with RzListView1.Items.Add do
begin
  Caption :='1'; //第1行第1列
  SubItems.Add('2');//第1行第2列
  SubItems.Add('3');//第1行第3列
  SubItems.Add('4');//第1行第4列
end;

Answer 3

Var
  I:integer;
  Item:TlistItem;
begin
  Item := ListView1.Items.Add;
  for i:=0 to 100 do
  begin
    Item.Caption :=inttostr(i); //第1行第1列
     Item.SubItems.Add('2');//第1行第2列
     Item.SubItems.Add('3');//第1行第3列
     ITem.SubItems.Add('4');//第1行第4列
  end;
end;这样项目就是从0到100了!

Answer 4

RzListView1.ViewStyle := vsReport;

Answer 5

sailxia
 
(小帆) 
正解