真的是脸红，不过还是要问

Question

listview如何新增加删除修改一条记录？我没用过这个控件，不好意思ing

Answer 1

var
  listItem:TListItem;
begin
  listItem:= listCtrl.Items.add;
  listItem.caption :='AA';
end;
DELPHI的SubItem的概念和VC的有点不同
VC 索引为0的 SubItem 相当于 是 Delphi中的Caption

Answer 2

看看书把。书上写的很明白的
var
  lvallItem: TListItem;
begin
     lvallItem := lvqy.Items.Add;
    lvallitem.Caption := tabcode; //表号
    lvallitem.SubItems.Add(tabname); //表名
    lvallitem.SubItems.Add(strProperty); //报告期别删除
 lvqy.Items.Delete(i);

Answer 3

控制烈的代码
var
  columen :TListColumn;
begin
  ListView1.ViewStyle:=vsReport;
  columen:=ListView1.Columns.Add;
  columen.Caption:=Edit2.Text;
end;
控制行的代码
var
  listItem:TListItem;
begin
  listItem.Caption:=Edit3.Text;
  listItem.SubItems.Add('aa');
  listItem.SubItems.Add('aa');
end;

Answer 4

添加行
var
  listItem:TListItem;
begin
  listItem.Caption:='  ';
  listItem.SubItems.Add('aa');
end;
添加列
var
  mycolumn :TListColumn;
begin
  mycolumn:=ListView1.Columns.Add;
  mycolumn.Caption:=' ';
end;