很急．．．．．

Question

怎么向listview组件里的item添加新的item和在这个item中添加subitem．
用语句写出来
比如把name.text加入item.caption
把number．text加入这个item的subitem中，不胜感激．

Answer 1

var additem:Tlistitem;
begin
additem:=listview.items.add;
additem.caption:=:=name.text;
additem.subitem.add(number．text);
end;

Answer 2

with ListView.Add do
begin
  caption:=:=name.text;
  subitem.add(number．text);
end;

Answer 3

procedure Add(sIP,sSize,sTime : string);
  var
    li : TListItem;
  begin
    ListView.Clear;
    ListView.Items.BeginUpdate;
    li := ListView.Items.Add;
    li.Caption := sIP;
    li.SubItems.Add(sSize);
    li.SubItems.Add(sTime);
    ListView.Items.EndUpdate;    
  end;