Delphi 如何从文本内容中删除指定行


本文整理自网络,侵删。

 
将完整文件加载到TStringList实例中。然后遍历列表中的项目,并使用Pos函数检查该行是否以“ PIL”开头(如果您将其添加到列表框中)。当需要保存可能已更改的文件的时间回来时,您将再次遍历列表框中的项目,但是这次您要从上到下进行操作。对于以“ PIL”开头的每一行,请使用 Listbox.Items.IndexOf方法查看它是否在列表框中,如果没有,请从字符串列表中将其删除。然后,将字符串列表写回到文件中。例:

在表单专用部分中,您声明一个字段:
FFilelines.Loadfromfile(filename);
listbox1.items.beginupdate;
try
  listbox1.clear;
  for i := 0 to FFilelines.count - 1 do
    if Pos('PIL', FFilelines[i]) = 1 then
      listbox1.items.add(FFilelines[i]);
finally
  listbox1.items.endupdate;
end;

要保存文件,请执行以下操作:

for i := FFilelines.count - 1 downto 0 do
  if Pos('PIL', FFilelines[i]) = 1 then
    if listbox1.items.indexof(FFilelines[i]) < 0 then
      FFilelines.Delete(i);
FFilelines.SaveToFile(filename);

相关阅读 >>

Delphi idhttp最简洁的修改和取得cookie例子

Delphi获取系统当前进程名和进程id

Delphi access技巧集

改写个Delphi 版 lz前辈的openprocess

Delphi 提权,杀进程,删服务

Delphi edit只能输入数字或小数点

Delphi 打开webbrowser的选中文件路径

Delphi打开"我的电脑"等特殊文件夹

Delphi 串口查询所有com口

Delphi 全局钩子锁定键盘

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...