delphi LISTVIEW使用

 lv1: TListView;

//添加列

procedure TForm1.btn6Click(Sender: TObject);

begin
   lv1.Columns.Add;//添加一列
    lv1.Columns.Add;
    lv1.Columns.Add;
    lv1.Columns[0].Caption:='Data';//对列进行复制
    lv1.Columns[1].Caption:='Data';
     lv1.Columns[2].Caption:='Data';
    //添加子项的数据信息

end;

//根据上面的列写出对应的行

procedure TForm1.btn2Click(Sender: TObject);
var
    ListItem:TListItem; //定义一个ListItem列组件
begin
    with  lv1 do
    begin
    ListItem:=Items.Add;
    ListItem.Caption:= IntToStr(0);
    ListItem.SubItems.Add('第 '+IntToStr(0)+' 行');
    ListItem.SubItems.Add('第三列内容');
    //ViewStyle:=vsReport;
    GridLines:=True;
    end;
end;