往ListView里面添加数据的问题

Question

请问怎样往ListView里面添加数据呢？我用
listview1.items.add.caption := 'a';
listview1.items.add.subitems[0] := 'b';
listview1.items.add.subitems[1] := 'c';程序结果崩溃了，提示
 List index out of bounds(0),请问应该如何正确往里面添加数据呢？

Answer 1

utmp := listview1.items.add;
utmp.caption := 'a';
utmp.subitems.add('b');utmp.subitems.add('c');

Answer 2

楼上忘记声明了var
item: TListItem;
begin
item:= TListView1.items.add;
item.caption:= 'afdsafds';
...
楼主怎么不结帖啊??

Answer 3

这样只能显示一行，我想多行显示的话怎么办呢？比如说我想显示两行：
utmp := listview1.items.add;utmp.caption := 'a';
utmp.subitems.add('b');
utmp.subitems.add('c');utmp.caption := 'd';
utmp.subitems.add('e');
utmp.subitems.add('f');这样运行的结果还是只显示了一行，要显示两行怎么做呢?

Answer 4

var
item: TListItem;
i: integer;
begin
for i:= 0 to 3 do
begin
item:= TListView1.items.add;
item.caption:= inttostr(i);
//item.subitems....
end;

Answer 5

utmp := listview1.items.add;utmp.caption := 'a';
utmp.subitems.add('b');
utmp.subitems.add('c');utmp := listview1.items.add;
utmp.caption := 'd';
utmp.subitems.add('e');
utmp.subitems.add('f');
这样就多行了