213032464.jpg


var
  item: TListItem;
  I:integer;
begin
  listView1.ViewStyle := vsReport;// 设置ListView为报表形式
  listView1.Columns.Add; // 增加1列
  listView1.Columns.Add; // 再增加1列
  listView1.Column[0].Caption := '序号'; // 第一列标题
  listView1.Column[1].Caption := '姓名'; // 第二列标题
  // 下面开始填充这个表格的内存
  // TListView 的每一行是一个TListItem对象
  item := listView1.Items.add; //增加一行，即增加一个TListItem对象，Add函数返回这个TListItem对象。
  item.Caption := '1';  // TLisItem对象的caption就表示这行的第一列，即你图标中的序号列的第一行第一列
  // TListItem对象的SubItems是一个字符串集合，即表示该行的第2~N列
  item.SubItems.Add('阿扁'); // 添加第一行第二列的数据，即姓名列的值
  // ........
  // 如此反复添加Columns列 和 TListItem及其subitem 即可填充为一个表
for I:=0 to 13 do
begin
 listView1.Items[i]:= '10'; // 修改第1行第1列
  listView1.Items[i].SubItems[0]:= '张三'; // 修改第1行第2列
  listView1.Items[i].SubItems[1]:='100岁'; // 修改第1行第3列
  listView1.items[i].subitems[2]:='110';//修改第1行第4列
end;
end;