procedure TForm1.Button1Click(Sender: TObject);
begin
   listView1.Items.Delete(0);  // 刪除第0列的資料
end;    procedure TForm1.Button3Click(Sender: TObject);
begin
 //  listView1.ShowColumnHeaders:= false;
   listView1.Columns[0].Destroy ;  //刪除第0行head
end;    

procedure DelListViewSubitem(lv:TListView;id:integer);
var i:integer;
begin
  for i:=0 to lv.Items.Count-1 do
    lv.items[i].SubItems.Delete(id-1);
  lv.Columns.Delete(id);
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  DelListViewSubitem(ListView1, 2);  //刪除第二個subitem
end;