在Delphi中如何实现最快速度写入文本文件？

架构老林

2026-9-26

Delphi 大文件写入性能优化方案

原代码性能瓶颈

逐字符写入：1GB文件需要调用10亿次write接口，用户态与内核态的上下文切换开销占了总耗时的99%以上，完全无法发挥NVMe SSD的高带宽优势
冗余文件操作：先Rewrite创建文件后立即关闭，再用Append重新打开，多了两次无意义的文件IO操作
TextFile默认缓冲区过小：Delphi的TextFile默认缓冲区仅为几KB，频繁刷写缓冲进一步拉低写入效率

优化方案

1. 去掉冗余文件操作

直接在Rewrite打开文件后执行写入，不需要关闭后再用Append打开。

2. 增大写入缓冲区

给TextFile设置大尺寸缓冲区，一次性写入多字节数据，将系统调用次数从10亿次降低到几十到上千次。

3. 可选：改用更高效的流写入接口

使用`TFileStream`或者原生Windows API执行写入，灵活控制缓冲逻辑，性能更可控。

优化后代码示例

var
  i: int64;
  myFile : TextFile;
  bytes: int64;
  // 1MB 缓冲区，可根据实际情况调整为64KB~4MB区间值，性能差异不大
  buf: array[0..1024*1024 - 1] of AnsiChar; 
  blockCount, remainBytes: int64;
begin
  // 初始化缓冲区所有字符为 'a'
  FillChar(buf, SizeOf(buf), 'a');
  
  AssignFile(myFile, FileName);
  ReWrite(myFile);
  // 绑定自定义缓冲区到TextFile，替换默认的小缓冲区
  SetTextBuf(myFile, buf);

  bytes:=1073741824; // 1GB
  blockCount := bytes div SizeOf(buf);
  remainBytes := bytes mod SizeOf(buf);
  
  // 批量写入整块数据
  for i := 1 to blockCount do
    write(myFile, buf);
  // 写入剩余不足一块的字节
  if remainBytes > 0 then
    write(myFile, Copy(buf, 1, remainBytes));

  CloseFile(myFile);
end;