我创建了一个TListView类型的listview，可是不能通过程序给他添加项目，要怎样才能实现呀？

Question

var
   ListItem:TListItem;begin
   ListItem:=ListView1.Items.Add;
   ListItem.Caption:=.....
end;

Answer 1

对于根结点可以这样加：
  node:=listview.AddChild(nil,项目名称);
对于非根结点（某结点如node的子结点）这样加：
  child:=node.Add；
  child.value[0]:=名称；

Answer 2

前面是因为listview没有创建好，所以劳在listitem.caption := 'kasdhj'这句出错：）
现在创建好了，谢谢：）

Answer 3

>>对于根结点可以这样加： node:=listview.AddChild(nil,项目名称);
这是ListView呀，不是TreeView.

Answer 4

首先解释一下ListView的结构，
ListView具有列头，用来将其划分成几列，结点item以及它的subitems
分别在列中显示。而结点具有subitems，这subitems是附属在结点上的
字符串信息。
结构如下：
    column1    |   column2      |  .......       |   columnN
---------------------------------------------------------------------
    Item1      |   SubItem1     |  .......       |   SubItemN
    Item2      |   SubItem1     |  .......       |   SubItemN
      .        |     .          |  .......       |      .
      .        |     .          |  .......       |      .
      .        |     .          |  .......       |      .
      .        |     .          |  .......       |      .
      .        |     .          |  .......       |      .
    ItemN      |  SubItem1      |  .......       |   SubItemN     //fill listview
      lv1.columns.clear;            //清除列
      TempColumn:=lv1.columns.add;  //添加列
      TempColumn.caption:='合同号'; //添加列头的值          
      TempColumn.width:=120;
      TempColumn:=lv1.columns.add;
      TempColumn.caption:='单位';
      TempColumn.width:=120;
      TempColumn:=lv1.columns.add;
      TempColumn.caption:='工程名称';
      TempColumn.width:=120;
      TempColumn:=lv1.columns.add;
      TempColumn.caption:='合同时间';
      TempColumn.width:=120;
      TempColumn:=lv1.columns.add;
      TempColumn.caption:='合同内容';
      TempColumn.width:=120;
      lv1.items.Clear;             //清楚ListView中的结点
      TempItem:=lv1.items.add;     //添加结点
      TempItem.Caption:=QryContact.Fieldbyname('contact_code').asstring;
      //添加结点的附属字符串
      TempItem.subitems.add(QryContact.Fieldbyname('project_company').asstring);
      TempItem.subitems.add(QryContact.Fieldbyname('project_name').asstring);
      TempItem.subitems.add(QryContact.Fieldbyname('contact_time').asstring);
      TempItem.subitems.add(QryContact.Fieldbyname('contact_note').asstring);