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 上传文件到七牛，纯原生

Delphi httpclient async异步获取网页代码

Delphi winapi: writeprivateprofilestring、getprivateprofilestring - 简单读写 ini 文件

Delphi中实现文件拷贝的三种方法

Delphi ioutils tdirectory获取一个目录下所有文件名，包括子目录

Delphi 快速远程屏幕传输api版

Delphi webbrowser1 设置获取编码

Delphi 如何打开记事本并显示指定内容

Delphi 调用浏览文件夹 selectdirectory

Delphi 获取cpu monitor使用率

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

转载请注明出处：木庄网络博客 » Delphi 如何从文本内容中删除指定行