Delphi TStreamWriter快速写入文件

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi 在线程中运行窗体

Delphi 资源文件管理 resources and images

Delphi firemonkey中listboxaccessory图标切换

Delphi 提升进程令牌

Delphi 关闭所有正在运行的程序

Delphi实现全局鼠标钩子

Delphi 对zlib单元进行再封装

Delphi加载驱动的代码演示

Delphi模仿“千千静听”滚动标题栏

获取剪贴板文字内容的代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi TStreamWriter快速写入文件