var i,j:integer; str:string; begin memo1.lines.clear; for i:=0 to listview.items.count-1 do begin str:=''; str:=listview.items[i].caption; for j:=0 to listview.items[i].subitems.count-1 do str:=str+';'+listview.items[i].subitems.strings[j]; memo1.lines.add(str); end; end;
i,j:integer;
str:string;
begin
memo1.lines.clear;
for i:=0 to listview.items.count-1 do
begin
str:='';
str:=listview.items[i].caption;
for j:=0 to listview.items[i].subitems.count-1 do
str:=str+';'+listview.items[i].subitems.strings[j];
memo1.lines.add(str);
end;
end;