(轉) Listview取值，與賦值

轉自：http://hi.baidu.com/kr1423/blog/item/a19d9c18542e98b14aedbcba.html

 

ListView1.Items 為標准 Tlistitems類

  ListView1.Items

  (1)賦值

  with ListView1.Items.Add do
     begin
        Caption:=caption; //添加第一項
        SubItems.add(aaaaa); //添加后面數據
        SubItems.add(1234);
        SubItems.add(1234);
      end; //一定要使用WITH結構.

  (2)取值

  listview1.Items.Item[i].Caption 取得某條數據標題

  listview1.Items.Item[i].SubItems.Strings[j] 取得某條數據內容

  listview1.Items.Item[i].SubItems.CommaText 一條記錄的全部內容,

  格式: "標題","內容1","內容2",....

  listview1.Items.Item[i].SubItems.Text 一條記錄的全部內容,

  格式: 標題,內容,內容2

  (3)刪除

  listview1.Items.Item[i].Delete; 刪除一條數據

  (4)數據類型(長度)定義

  i:=ListView1.Items.Count 數據條數

  listview1.Items.Item[i].Selected 該條數據選中否(MultiSelect決定單選復選)

  (5)其他

  ListView1.Items.Clear; 清除數據

//按標題刪除
   for i:=ListView1.Items.Count-1 downto 0 Do
     if ListView1.Items[i].Caption = Edit1.Text then
     begin
       ListView1.Items.Item[i].Delete();  //刪除當前選中行
     end;

//選中一行
   if ListView1.Selected <> nil then
   Edit1.Text := ListView1.Selected.Caption;
  

  for i:=0 to lvMXSJ.Items.Count-1 do
  begin
   with lv1.Items.Add do
   begin
      str1:=lvMXSJ.Items.Item[i].Caption;
      Caption:=str1;
     for j:=0 to lvMXSJ.Columns.Count-2 do
    begin
      str2:=lvMXSJ.Items.Item[i].SubItems.Strings[j];
      SubItems.Add(str2);
    end;
   end;