怎样在ListView1中添加项？

Question

var 
  ListItem: TListItem;
begin
  ListItem := ListView1.Items.Add;
  with ListItem do
  begin
    Caption := 'Column1';
    SubItems.Add( 'Column2' );
    SubItems.Add( 'Column3' );
  end;
end;

Answer 1

补充：
   1. 在 Delphi 界面下，选中一个 TListView 控件，按 F1,选 Propertys->Items->Examples->
      Colunms, Caption, Items, SubItems, Add Example 
      有你想要的内容；
   2. 多看帮助，帮助才是你的启蒙老师呀。

Answer 2

  Re:Musicwind
  你这程序运行结果，只添加了Caption项，而SubItems没添加到或空白。请再指点一下！

Answer 3

Re:Musicwind(风里来雨里去)
    谢谢你的F1。　

Answer 4

var
  aListItem:TListItem;
  aListColumn:TListColumn;
begin
  ListView1.Columns.Clear;
  aListColumn:=ListView1.Columns.Add;
  aListColumn.Caption:='Column1';
  aListColumn.Width:=100;
  aListColumn:=ListView1.Columns.Add;
  aListColumn.Caption:='Column2';
  aListColumn.Width:=100;
  aListColumn:=ListView1.Columns.Add;
  aListColumn.Caption:='Column3';
  aListColumn.Width:=100;
  
  aListItem:=ListView1.Items.Add;
  aListItem.Caption:='Item1';
  aListItem.SubItems.Add('Item1.1');
  aListItem.SubItems.Add('Item1.2');  恐怕写得罗索了些，不过我想应该写的比较明白。

Answer 5

Re: deng1977(rainbow)　只可惜，分已送完。多谢了！！！