这应该是比较容易解决的问题.定义一个TStringList, 然后把ListView中的数据一行行写入到TstringList中保存即可.var strList : TStringList; i : integer; begin strList := TStringList.Creat; for i:=0 to ListView.Items.count-1 do begin strList.add(ListView.items[i].Caption+'^'+(ListView.items[i].SubItems.string[i]); ... end; strList.SaveToFile('c:\temp.txt'); strList.free; end;读出时再按保存时的格式读出...
tab其值为#9 var list:tstringlist;i,j:integer; begin list:=tstringlist.create; for i:=0 to listview.items.count-1 do begin list.add(listview.items[i].caption); for j:=0 to listview.items[i].subitems.count-1 do list.add(#9+listview.items[i].subitem[j]); end; list.free; end
strList : TStringList;
i : integer;
begin
strList := TStringList.Creat;
for i:=0 to ListView.Items.count-1 do
begin
strList.add(ListView.items[i].Caption+'^'+(ListView.items[i].SubItems.string[i]);
...
end;
strList.SaveToFile('c:\temp.txt');
strList.free;
end;读出时再按保存时的格式读出...
因为:listview中是分列的,所以一条记录,你也可以逐列的读取啊
var list:tstringlist;i,j:integer;
begin
list:=tstringlist.create;
for i:=0 to listview.items.count-1 do
begin
list.add(listview.items[i].caption);
for j:=0 to listview.items[i].subitems.count-1 do
list.add(#9+listview.items[i].subitem[j]);
end;
list.free;
end
strList : TStringList;
begin
strList := TStringList.Creat;
strList.LoadFromFile('你保存的文件');
//接下来就是对strList的操作了,简单吧.
end;