delphi - 从二进制文件中删除字符

Question

我想从二进制/文本文件中删除字符/字符串。如果我知道文件中字符/字符串的位置，如何删除它？我应该读取文件(BlockRead)，删除字符/字符串(使用Delete(source，startPos，endPos)然后写入(BlockWrite)到新文件还是可以直接从指定文件中删除？

谢谢

Answer 1

您可以使用 TFileStream.CopyFrom 方法复制到不需要的字符串之前，查找它，然后再次 CopyFrom 文件的其余部分。 TFileStreams 相当快。

类似这样的东西(未经测试)

aInFile := TFileStream.Create(sInput, fmOpenRead);
try
  aOutFile := TFileStream.Create(sOutput, fmCreate);
  try
    aOutFile.CopyFrom(aInFile, Pos);
    aInFile.Seek(Skip);
    aOutFile.CopyFrom(aInFile, aInfile.Size - Pos - Skip);
  finally
    aOutFile.Free;
  end;
finally
  aInFile.Free;
end;