Delphi中使用TFileStream写入数据如何实现换行不覆盖原有内容

• 覆盖旧内容：你创建TFileStream时使用了fmCreate标志位，该标志会在目标文件存在时直接删除原有文件并新建，自然会覆盖之前写入的所有内容。
• 内容不换行：你没有在每段输出内容的末尾写入换行标识，Windows平台下文本文件的标准换行符为#13#10（回车+换行，对应ASCII码的CR+LF）。

调整文件打开逻辑，写入时自动定位到文件末尾，每段内容写完后追加换行符即可，修改后的代码如下：

function TParserSkyecc.GenerateHTMLFile(pathHtml,out1,out2,out3,out4,out5 : String) : Boolean;
var 
  FS: TFileStream;
  sLineBreak: AnsiString;
begin
  Result := False;
  // 定义Windows平台换行符，转成AnsiString和你写入的编码匹配
  sLineBreak := #13#10;
  // 打开标志调整为：文件不存在则创建，存在则打开写入，不锁定文件
  FS := TFileStream.Create(pathHtml + '\filename.txt', fmOpenWrite or fmShareDenyNone or fmCreate);
  try
    // 定位到文件末尾，实现追加写入不覆盖旧内容
    FS.Seek(0, soFromEnd);
    
    // 每写入一段内容后追加换行符
    FS.WriteBuffer(Pointer(AnsiString(out1))^, Length(out1));
    FS.WriteBuffer(Pointer(sLineBreak)^, Length(sLineBreak));
    
    FS.WriteBuffer(Pointer(AnsiString(out2))^, Length(out2));
    FS.WriteBuffer(Pointer(sLineBreak)^, Length(sLineBreak));
    
    FS.WriteBuffer(Pointer(AnsiString(out3))^, Length(out3));
    FS.WriteBuffer(Pointer(sLineBreak)^, Length(sLineBreak));
    
    FS.WriteBuffer(Pointer(AnsiString(out4))^, Length(out4));
    FS.WriteBuffer(Pointer(sLineBreak)^, Length(sLineBreak));
    
    FS.WriteBuffer(Pointer(AnsiString(out5))^, Length(out5));
    FS.WriteBuffer(Pointer(sLineBreak)^, Length(sLineBreak));
    
    Result := True;
  finally
    FS.Free;
  end;
end;

• 如果你使用的是Delphi XE及以上版本，也可以直接使用内置的TStreamWriter类写入文本，无需手动处理编码和换行，代码更简洁。
• 如果你的程序需要跨平台运行，Linux/macOS平台的换行符为#10，可直接调用内置常量sLineBreak适配不同平台。

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