(转) 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;