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;
转载于:https://blog.51cto.com/amcto111/1250858