收录日期:2019/01/17 21:34:02 时间:2016/05/20 18:28:04 标签:VCL组件开发及应用
有什么简单方法可以将listview里面的记录保存到文件中?
可以声明一个数组,首先获取Listview.items,然后把它付给数组
我想保存成tab分隔的文件。然后能够读出来,写到listveiw中去。大家有何好办法?谢谢
TListView->TStream->Raw Data Buffer->File
欢迎讨论
这应该是比较容易解决的问题.

定义一个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;

读出时再按保存时的格式读出...

你 逐条记录的读取数据,然后读完一条后就写如文件啊 ;
因为:listview中是分列的,所以一条记录,你也可以逐列的读取啊
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
sorry,忘记了,list.free前加上一句list.savetofile('*.txt');
谢谢。如果从文件里面读的话,是否应该是一行行读,然后分离,然后再赋值到listview中去?
要学会使用TStringList;

TStringList太好用了...

var
  strList : TStringList;
begin
  strList := TStringList.Creat;
  strList.LoadFromFile('你保存的文件');
  //接下来就是对strList的操作了,简单吧.
end;
读的时候前面没有tab的就是caption,有tab的就是subitem

请问有没有一个windows api函数是可以实现ping操作的?? 请各位前辈指教! local接口用用在same JVM上,怎样才能算在同一个JVM上? 再开一贴(续) 有个人主页的同志展示一下样! 问声好给各位,同时小小提醒一下 请问我想控制局域网里面的机器上网,用路由器能做到吗? 大家帮我讨论下我的同学那个说的正确:问题是window98用什么工具做的?一个同学说是用vb!我的老乡同学说是用dephi! 位卑未敢忘忧国,钓鱼岛和某些岛现在究竟怎样啦? PACK数据表出错(在线等待) 请问database数据库控件连接上了SQL SERVER返回值是多少? 用SQL和VB开发的软件能脱离SQL环境吗? 一个错误的问题 请推荐ORACLE9i的书 怎样去掉链接下划线? 操他妈的SOHU,今天邮箱又打不开了,chinaren又上不了,我为什么说又呢? 如果用DAO连接数据库 如何单独编译.cpp? 焦点不能到 show 在PANEL 上的form 中的EDIT 谁想做操作系统的,请进 ■■■■■■■■\"wobccu 虾米\"有事求大家,请关注我的帖子 放送 1000 分■■■■■■■ 菜鸟求救 如何解决要使for能从高到低循环?(在线) LDAP协议的问题 我的XP启动时不需要密码,启动后也无法锁定.怎样增加密码与锁定功能?(没有加入域) 请问哪儿有LINUX的源代码下载? xp 经常自动重起。系统日志都是nv来源的错误。nv是什么意思。如何解决。 如何将网卡设置成混合模式?? Oracle中触发器问题请教!!!!!!!! 有没有用过IPControls控件里的wwDBLookupCombo控件的??