ListView控件问题

Question

各位大师:
我把ListView的ViewStyle设成了vsReport.我像在ListView中用程序写入其内容,可是我不知道该怎么写.
listview1.Items.Add不行
listview1.Items.Add.SubItems.Add也不行
一写就会写到下一行,而横向写不了.
谁可以帮我解决一下....

Answer 1

具体的看帮助，下面代码可能有不正确的地方。var
  xItem: TListItem;
begin
  xItem := ListView1.Items.Add;
  xItem.Caption := '标题';
  xItem.SubItems.Add('子1');
end;

Answer 2

var i:integer;
    itemlist:tlistitem;
begin
  for i:=1 to 15 do
  begin
    ListView1.columns.Add ;
  end;
    for i:=1 to 90 do
  begin
    itemlist:=ListView1.Items.Add ;
    itemlist.Caption :=inttostr(i);    itemlist.SubItems.Add('192.168.1.'+inttostr(i));
    itemlist.SubItems.Add('255.255.255.0');
    itemlist.SubItems.Add('202.23.58.156');
    itemlist.SubItems.Add(inttostr(i)+'--'+'workgroup');
    itemlist.SubItems.Add(inttostr(i)+'--'+'administrator');
    itemlist.SubItems.Add('00.40.CA.2E.3D.45');
    itemlist.SubItems.Add(inttostr(i)+'--'+'比儿该死');
    itemlist.SubItems.Add(inttostr(i)+'--'+'319921880'+inttostr(i));
    itemlist.SubItems.Add(inttostr(i)+'--'+'99(2)');
    itemlist.SubItems.Add(inttostr(i)+'--'+'计算机');
    itemlist.SubItems.Add(inttostr(i)+'--'+'25岁');
    itemlist.SubItems.Add(inttostr(i)+'--'+'男性');
    itemlist.SubItems.Add(inttostr(i)+'--'+'汉族');
    itemlist.SubItems.Add(inttostr(i)+'--'+'上海市杨浦区');
    itemlist.SubItems.Add(inttostr(i)+'--'+'已经结婚');
    itemlist.SubItems.Add(inttostr(i)+'--'+'BBC111.111');
   end;end;

Answer 3

ListView1.items.BeginUpdate;
  for i := 0 to ListView1.Items.Count - 1 do
  begin
    Dispose(pCstmGrpInfo(ListView1.Items[i].Data));
  end;
  ListView1.Clear;
  QryTemp:=TADOQuery.Create(Application);
  QryTemp.Connection:=dm.ADOConn;  
  //创建子类别
  if ATreeNode.HasChildren then
  begin
    QryTemp.SQL.Text:='select typecode,typename from GC_Type where'
                    + ' FatherCode = '+ QuotedStr(Pnodedata(ATreeNode.data)^.ID);    QryTemp.open;
    while not QryTemp.Eof do
    begin
      MyListItem:=ListView1.Items.Add;
      MyListItem.Caption:=QryTemp.fieldbyname('typename').asstring;
      MyListItem.SubItems.Add('分类');
      system.new(Pdata);
      Pdata.RID:=QryTemp.fieldbyname('typecode').asstring;
      Pdata.RScheme:='ProductType';
      Pdata.RName:=QryTemp.fieldbyname('typename').asstring;
      MyListItem.data:=Pdata;
      MyListItem.ImageIndex :=0;
      QryTemp.next;
    end;
  end;  //创建该类别商品
  QryTemp.SQL.Text:='select * from GC_Commodity where'
                  + ' TypeCode = '+ QuotedStr(Pnodedata(ATreeNode.data)^.ID);  QryTemp.open;
  while not QryTemp.Eof do
  begin
    System.new(Pdata);
    Pdata^.RID:=QryTemp.FieldByName('CommodityID').AsString;
    Pdata^.RScheme:='商品';
    Pdata^.RName:=QryTemp.FieldByName('CommodityName').AsString+'/'+
                  QryTemp.FieldByName('Model').AsString;
    MyListItem:=ListView1.Items.Add;
    MyListItem.Data:=Pdata ;
    MyListItem.Caption:=Pdata^.RName;
    MyListItem.ImageIndex :=2;
    MyListItem.SubItems.Add('商品');
    MyListItem.SubItems.Add(QryTemp.FieldByName('Unit').AsString);
    MyListItem.SubItems.Add(QryTemp.FieldByName('StockingPrice').AsString);
    MyListItem.SubItems.Add(QryTemp.FieldByName('UnitPrice').AsString);
    MyListItem.SubItems.Add(QryTemp.FieldByName('SellingPrice').AsString);
    QryTemp.Next;
  end;
  QryTemp.free;  
  ListView1.Update;
  ListView1.items.endUpdate;

Answer 4

要先用item保存一下var
  xItem: TListItem;
begin
  xItem := ListView1.Items.Add;
  xItem.Caption := '123';
  xItem.SubItems.Add('123123');
end;