怎样往LISTVIEW中动态的添加数据？

Question

怎样往LISTVIEW中动态的添加数据？
就是把数据库中的数据添加到LISTVIEW中（显示出来）？

Answer 1

TListItem与 TListView有什么关系？----这个问题是不是很菜？？  ：）

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
  ListItem: TListItem;
  NewColumn: TListColumn;
begin
  // Create a ListView item for each image in the ImageList
  with ListView1 do
  begin
    SmallImages := ImageList1;
    LargeImages := ImageList1;
    for I := 0 to ImageList1.Count - 1 do
    begin
      ListItem := Items.Add;
      Listitem.Caption := 'Image' + IntToStr(I);      ListItem.ImageIndex := I;
    end;
    // Create two columns to show during viewing as vsReport
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Column 1';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Column 2';
    // Add View styles and constants to the Combo Box
    ComboBox1.Items.AddObject('vsIcon', TObject(vsIcon));
    ComboBox1.Items.AddObject('vsList', TObject(vsList));
    ComboBox1.Items.AddObject('vsReport', TObject(vsReport));    ComboBox1.Items.AddObject('vsSmallIcon', TObject(vsSmallIcon));
    // Display first item in the Combo Box
    ComboBox1.ItemIndex := 0;
  end;
end;procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  with ComboBox1 do
    ListView1.ViewStyle := TViewStyle(Items.Objects[ItemIndex]);
end;帮助写的很好

Answer 3

自己写个函数，功能：从数据库里读数据，用个循环添加listview的项，
ListView.items.add（nil,fieldbyname('字段名').asstring）；//没有父结点情况
ListView.items.add（父结点,fieldbyname('字段名').asstring）；//有父结点情况
当数据库改变时，就调用一下这个函数，可动态保持listview与数据库同步