×××××关于ListView×××××在线等，急ing。。。。。。。。。

Question

ListView共有4个Columns，它们的Caption分别为：编号、等级、地点、价格
求教怎么样把Edit1－4.Text的内容分别给各个Columns，并显示在ListView中

Answer 1

var ListItem:TListItem;
begin
  with ListView1 do
    begin
       ListItem:=Items.Add;
       ListItem.Caption:=Edit1.Text;
       with ListItem.SubItems do
          begin
            Add(Edit2.Text);
            Add(Edit3.Text);
            Add(Edit4.Text);
          end;
    end;
end;