如何提取ListView里的内容！

Question

var
  item:TListitem;
  i,j:integer
begin
  for i:=0 to Listview1.items.count-1 do
  begin
    item:=Listview1.items.item[i];
    showmessage(item.caption);    //第一列
    for j:=0 to item.subitems.count-1 do
    begin
      showmessage(item.subitems.strings[j]); //后面的每一列
    end;
  end;
end;

Answer 1

我想把整个ListView里的内容作为一志提取出来

Answer 2

STr:='';
  for i:=0 to ListView1.Items.Count-1 do
    str:=Str+ListView1.Items[i].Caption;
  Showmessage(str);

Answer 3

var
  MyItem:TListitem;
  i,j:integer
begin
  for i:=0 to Listview1.items.count-1 do
  begin
    MyItem:=Listview1.items.item[i]; //第i行
    showmessage(MyItem.caption);    
    for j:=0 to MyItem.subitems.count-1 do
    begin
      showmessage(MyItem.subitems.strings[j]); ////第j列
    end;
  end;
end;

Answer 4

我想把整个ListView里的内容作为一志提取出来-------------------------------------
什么意思啊？想一次全部提出？没有其他的方法，自己写啦

Answer 5

是的？是这个意思，因为你现在写一个 c/s程序，我需要把ListView里的内容一次性提出，发送到服务器！

Answer 6

var
  MyItem:TListitem;
  i,j:integer
  StrList:string; 
begin
  StrList:='';
  for i:=0 to Listview1.items.count-1 do
  begin
    MyItem:=Listview1.items.item[i]; 
    StrList:=StrList + MyItem.caption;    
    for j:=0 to MyItem.subitems.count-1 do
    begin
      StrList:=StrList +  MyItem.subitems.strings[j];
    end;
  end;
  //StrList就是你要的值了！
end;

Answer 7

var
  MyItem:TListitem;
  i,j:integer
  StrList:string; 
begin
  StrList:='';
  for i:=0 to Listview1.items.count-1 do
  begin
    MyItem:=Listview1.items.item[i]; 
    StrList:=StrList + MyItem.caption;    
    for j:=0 to MyItem.subitems.count-1 do
    begin
      StrList:=StrList +' '+  MyItem.subitems.strings[j];
    end;
  end;
  //StrList就是你要的值了！
end;