delphi - 如何使用 UTF8 不带 BOM 将对象从 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为假。

文档告诉我们这一点:

Will cause SaveToStream or SaveToFile to write a BOM.

Set WriteBOM to True to cause SaveToStream to write a BOM (byte-order mark) to the stream and to cause SaveToFile to write a BOM to the file.