var
  ListItem: TListItem;
begin
  ListItem:=ListView.Items.Add;
  ListItem.Caption:='XXX';
  ListItem.SubItems.Add('SUB-XXX');
  // 輸入縮圖的編號..
  ListItem.ImageIndex:=n;
  ListItem.Data:=把連結的Object指標交給它;
end;

引言: 可否把程序写的全一些，每一列都有数据的形式

您好： 不知有无理解错您的意思，参考下列简单的列子，自己根据需求，去调整 先将ListView的ViewStyle设成vsReport形式；点窗体上的ListView按右键，弹出Columns Editor新增5个TListColumn，然后键入如下代码即可

 
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
  PListItem:TListItem;    begin
  ListView1.Items.Clear;
  for i:=0 to 4 do
    begin
      PListItem:=ListView1.Items.Add; //增加节点
      PListItem.Caption:=inttostr(i); //节点标签
      for j:=0 to 3 do
        PListItem.SubItems.Add(inttostr(j));//子节点
    end;
end;

用法很简单，您可输入ListView关键字进行查找，参考： http://delphi.ktop.com.tw/topic.php?topic_id=55643 http://delphi.ktop.com.tw/quicksearch.exe/quicksearch?searchstr=Listview&page=2 自己实践一番，先看看书也好，试试看 <>~~~静心养德~~~

var
  I: Integer;
  NewColumn: TListColumn;
  ListItem: TListItem;
  ListView: TListView;
begin
  ListView := TListView.Create(Self);
  with ListView do
  begin
    Parent := Self;
    Align := alClient;
    ViewStyle := vsReport;
    // 以下幾行可以決定你要有幾個Column
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Last';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'First';        for I := Low(Names) to High(Names) do
    begin
      ListItem := Items.Add;
      ListItem.Caption := Names[I][0];
      // 如果你有超過三個欄位, 
      // 後面的內容就是重覆呼叫SubItems.Add()的方式處理..
      ListItem.SubItems.Add(Names[I][1]);
    end;
  end;
end;