各位快来告诉我，这个listview怎么才能往里加东西呀？？？？？？？？？？？？？？？？？？

Question

这是我的添加按钮的一段代码  ListView1.Items[0].Caption := FlatEdit1.text;
  ListView1.Items[0].SubItems[0] := FlatEdit3.Text;
  ListView1.Items[0].SubItems[1] := FlatEdit2.Text;
  ListView1.Items[0].SubItems[2] := FlatEdit5.Text;
  ListView1.Items[0].SubItems[3] := FlatEdit4.Text;
  ListView1.Items[0].SubItems[4] := FlatEdit6.Text;可每次按下时总是告诉我什么地址错误，怎么回是呀

Answer 1

首先要增加节点：
var
  ListItem:  TListItem;
begin
  with ListView1.Add do
  begin
    Caption := FlatEdit1.text;
    SubItems[0] := FlatEdit3.Text;
    //..
  end;end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

看看这样行不行：  ListView1.Caption := FlatEdit1.text;
  ListView1.SubItems[0].Add(FlatEdit3.Text);
  ListView1.SubItems[1].Add( FlatEdit2.Text);
  ListView1.SubItems[2].Add( FlatEdit5.Text);
  ListView1.SubItems[3].Add(FlatEdit4.Text);
  ListView1.SubItems[4].Add(FlatEdit6.Text);

Answer 3

var
  ListItem:  TListItem;
begin
  ListItem:=ListView1.Items.Add;
  ListItem.Caption := FlatEdit1.text;
  ListItem.SubItems[0].Add(FlatEdit3.Text);
  ListItem.SubItems[1].Add( FlatEdit2.Text);
  ListItem.SubItems[2].Add( FlatEdit5.Text);
  ListItem.SubItems[3].Add(FlatEdit4.Text);
  ListItem.SubItems[4].Add(FlatEdit6.Text);搞定，收工！！

Answer 4

var
  ListItem:  TListItem;
begin
  ListItem:=ListView1.Items.Add;
  ListItem.Caption := FlatEdit1.text;
  ListItem.SubItems.Add(FlatEdit3.Text);
  ListItem.SubItems.Add( FlatEdit2.Text);
  ListItem.SubItems.Add( FlatEdit5.Text);
  ListItem.SubItems.Add(FlatEdit4.Text);
  ListItem.SubItems.Add(FlatEdit6.Text);
看看这样吧!