performance - Delphi 中的文本文件写入性能

Question

我的程序正在处理传入的字符串(来自 Telnet、HTTP 等)，我必须使用 Delphi XE2 将这些字符串写入文本文件以用于记录目的。

有时程序可能会崩溃，我需要确保剩余的字符串不会丢失，因此我为每个传入的字符串打开/关闭文件，并且遇到一些性能问题。例如，下面的代码需要 8 秒才能完成。

我的代码如下，有什么方法可以提高性能吗？

(对于下面的测试，只需创建一个带有 Button : Button1、OnClick 事件和 Label : lbl1 的表单)。

Procedure AddToFile(Source: string; FileName :String);
var
  FText : Text;
  TmpBuf: array[word] of byte;
Begin
  {$I-}
  AssignFile(FText, FileName);
  Append(FText);
  SetTextBuf(FText, TmpBuf);
  Writeln(FText, Source);
  CloseFile(FText);
  {$I+}
end;

procedure initF(FileName : string);
Var  FText : text;
begin
  {$I-}
  if FileExists(FileName) then  DeleteFile(FileName);
  AssignFile(FText, FileName);
  ReWrite(FText);
  CloseFile(FText);
  {$I+}
end;

procedure TForm1.Button1Click(Sender: TObject);
var tTime : TDateTime;
    iBcl : Integer;
    FileName : string;
begin
  FileName := 'c:\Test.txt';
  lbl1.Caption := 'Go->' + FileName; lbl1.Refresh;
  initF(FileName);
  tTime := Now;
  For iBcl := 0 to 2000 do
    AddToFile(IntToStr(ibcl) + '   ' +  'lkjlkjlkjlkjlkjlkjlkj' , FileName);
  lbl1.Caption  :=  FormatDateTime('sss:zzz',Now-tTime);
end;

Answer 1

使用 TStreamWriter ，它是自动缓冲的，并且可以自动将其缓冲区刷新到TFileStream。它还允许您根据需要选择附加到现有文件，设置 Unicode 支持的字符编码，并允许您在其各种重载 Create 中设置不同的缓冲区大小(默认为 1024 字节或 1K)。构造函数。

(请注意，刷新 TStreamWriter 只会将 TStreamBuffer 的内容写入 TFileStream；它不会刷新操作系统文件系统缓冲区，因此在释放 TFileStream 之前，文件实际上不会写入磁盘。)

不要每次都创建StreamWriter；只需创建并打开一次，最后关闭它:

function InitLog(const FileName: string): TStreamWriter;
begin
  Result := TStreamWriter.Create(FileName, True);
  Result.AutoFlush := True;         // Flush automatically after write
  Result.NewLine := sLineBreak;     // Use system line breaks
end;

procedure CloseLog(const StreamWriter: TStreamWriter);
begin
  StreamWriter.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var 
  tTime : TDateTime;
  iBcl : Integer;
  LogSW: TStreamWriter;
  FileName: TFileName;
begin
  FileName := 'c:\Test.txt';
  LogSW := InitLog(FileName);
  try
    lbl1.Caption := 'Go->' + FileName; 
    lbl1.Refresh;
    tTime := Now;

    For iBcl := 0 to 2000 do
      LogSW.WriteLine(IntToStr(ibcl) + '   ' +  'lkjlkjlkjlkjlkjlkjlkj');

    lbl1.Caption  :=  FormatDateTime('sss:zzz',Now - tTime);
  finally
    CloseLog(LogSW);
  end;
end;