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

2022-12-27 16:27:12 作者:admin

本文整理自网络,侵删。

 将完整文件加载到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 的按位运算详解

Delphi想tstringgrid中添加和删除行的方法

Delphi添加任务栏右键菜单

Delphi clipboard 截图后将图片数据复制到剪贴板

Delphi的tservice 服务路径获取 dll中获取文件路径

android : assets与res/raw资源目录的区别

Delphi xe 应用程序横竖屏设置

Delphi 通过http获取软件版本

Delphi webbrowser同时访问两个网址导致程序出错的解决办法

winapi 字符及字符串函数(15): charnext、charprev

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



在线咨询 拨打电话