求助：急啊！关于listview

Question

listview 的subitems怎么添加？怎么访问

Answer 1

function additems(ListView:TListView)
var
  lvItem:TListItem;
begin
  lvItem:=ListView.items.add;
end
访问：
ListView.Items[1].SubItems

Answer 2

var
  lvItem:TListItem;
begin
   lvItem.Caption:='ok'; // it's wrong！
   lvItem:=ListView1.items.add;
end;这样子？我要添加并设置subitem的内容怎么不行？

Answer 3

with ListView1.add do
begin
  caption:='ok';
  Subitems.Add('12345');
  Subitems.Add('56789');
end;访问时这样
  //i为第几行
  ListView1.items[i].caption:='ok';
  ListView1.items[i].subitems.string[0]:='234';

Answer 4

ViewStyle:=vsReport;
首先设置Columns属性，表示列，再添加对应的SubItems

Answer 5

添加时也可这样：
var
  lvItem:TListItem;
begin
   lvItem:=LIstView1.add
   lvItem:=ListView1.caption:='ok';
   lvItem.subitems.add('12345');
end;

Answer 6

第二句错了，应该是
lvItem.caption:='ok';

Answer 7

LV_GY.Items.Add;
LV_GY.Items[i].Caption:=ParamByName('SJBM').AsString;
LV_GY.Items[i].SubItems.Add(ParamByName('SJMC').AsString);