如何使用没有 BOM 的 UTF8 将对象从 TStringList 类保存到文件（Delphi XE 2）？

Question

当我将对象从 TStringList 类文件内容保存到文件时，该文件正确保存为 UTF-8，但默认情况下使用 BOM 保存 UTF-8。

我的代码是：

myFile := TStringList.Create;
try
  myFile.Text := myData;
  myFile.saveToFile('myfile.dat', TEncoding.UTF8)
finally
  FreeAndNil(myFile);
end;

在示例中，文件“myfile.dat”显示为“UTF-8 BOM”编码。

如何在没有 BOM 的情况下保存文件？

Answer 1

您只需将属性TStrings.WriteBOM设置为false 。

文档告诉我们这一点：

将导致 SaveToStream 或 SaveToFile 写入 BOM。

将WriteBOM设置为True使 SaveToStream 将 BOM（字节顺序标记）写入流并使 SaveToFile 将 BOM 写入文件。

Answer 2

您可以通过创建继承自TUTF8Encoding自己的编码类并覆盖GetPreamble方法来实现这一点：-

type
  TUTF8EncodingNoBOM = class(TUTF8Encoding)
  public
    function GetPreamble: TBytes; override;
  end;


function TUTF8EncodingNoBOM.GetPreamble: TBytes; begin SetLength(Result, 0); end;