Delphi 11如何用TStreamWriter生成无BOM的UTF-8 CSV文件？

你的代码存在两个关键问题导致无法生成无BOM的UTF-8文件：

1. Writer变量被注释掉，未在var块中正确声明，会引发编译错误；
2. 使用TEncoding.GetEncoding(65001)获取的UTF-8编码，在TStreamWriter中仍可能默认写入BOM，且函数的分阶段调用逻辑（create/append/close）容易导致Writer未正确初始化或重复释放。

正确实现方式 #

要生成不带BOM的UTF-8文件，需显式创建不带BOM的UTF-8编码实例，同时修正资源管理逻辑：

function TfMain.generateCsvFile(pathname: String; outStr: String; create: boolean; append: boolean; close: boolean): Boolean;
var
  Writer: TStreamWriter;
  UTF8withoutBOM: TUTF8Encoding;
begin
  Result := False;
  try
    if create then
    begin
      // 创建不带BOM的UTF-8编码实例，参数True表示不生成BOM
      UTF8withoutBOM := TUTF8Encoding.Create(True);
      try
        // 第二个参数False表示覆盖文件，若需追加可改为True，create分支建议用覆盖逻辑
        Writer := TStreamWriter.Create(pathname, False, UTF8withoutBOM);
      finally
        UTF8withoutBOM.Free;
      end;
    end;

    // 确保Writer已初始化再执行写入操作
    if Assigned(Writer) and append then
    begin
      Writer.WriteLine(outStr);
      Writer.Flush;
      Result := True;
    end;

    if close and Assigned(Writer) then
    begin
      Writer.Free;
      Writer := nil;
    end;
  except
    on e: Exception do
    begin
      ShowMessage('Errore ' + e.Message);
      lbConsole.Items.Add('Errore ' + e.Message);
      // 异常时确保Writer被正确释放
      if Assigned(Writer) then
      begin
        Writer.Free;
        Writer := nil;
      end;
    end;
  end;
end;

关键说明 #

• TUTF8Encoding.Create(True)：参数True是实现无BOM文件的核心，明确指定不生成UTF-8字节顺序标记；
• 修正资源管理：编码实例使用后及时释放，Writer在异常场景下也能被清理；
• 添加Assigned(Writer)判断，避免调用未初始化的Writer导致程序崩溃。

如果你的函数需要分多次调用（先create，再多次append，最后close），建议将Writer声明为TfMain的类成员变量，避免每次调用重新初始化：

// 在TfMain类中添加私有成员
private
  FWriter: TStreamWriter;

// 修改后的函数实现
function TfMain.generateCsvFile(pathname: String; outStr: String; create: boolean; append: boolean; close: boolean): Boolean;
var
  UTF8withoutBOM: TUTF8Encoding;
begin
  Result := False;
  try
    if create then
    begin
      // 若已有Writer实例，先释放
      if Assigned(FWriter) then
      begin
        FWriter.Free;
        FWriter := nil;
      end;
      UTF8withoutBOM := TUTF8Encoding.Create(True);
      try
        FWriter := TStreamWriter.Create(pathname, False, UTF8withoutBOM);
      finally
        UTF8withoutBOM.Free;
      end;
    end;

    if Assigned(FWriter) and append then
    begin
      FWriter.WriteLine(outStr);
      FWriter.Flush;
      Result := True;
    end;

    if close and Assigned(FWriter) then
    begin
      FWriter.Free;
      FWriter := nil;
    end;
  except
    on e: Exception do
    begin
      ShowMessage('Errore ' + e.Message);
      lbConsole.Items.Add('Errore ' + e.Message);
      if Assigned(FWriter) then
      begin
        FWriter.Free;
        FWriter := nil;
      end;
    end;
  end;
end;

内容的提问来源于stack exchange，提问作者Franz Andreani