제가 꽁수로 만든 로직입니다.
나름대로 충분히 활용할 수 있겠네요^^
우선 리스트뷰를 루프를 돌면서 텍스트로 저장하는것입니다.
var
i : integer
stl : tstringlist
str : string;
begin
for i := o to listview1.items.count-1 do begin
str := listview1.items[i].caption + #9 + listview1.items[i].subitems[0] + #9 + listview1.items[i].subitems[1]; //이곳은 서브 아이템 항목만큼 계속 더하기
stl.add(str);
end;
stl.savetofile('c:\test.xls'); //원하는 위치에 저장
stl.free;
end;