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 removedir 删除文件夹

Delphi xe10 对 json的解析应用

Delphi radiogroup 组件基本用法

Delphi webbrowser1 设置获取编码

Delphi读取文本(一行一行读入)

Delphi中嵌入汇编检测是否在虚拟机里运行

Delphi getprocesshandleasname 获取进程句柄

Delphi10.3模拟读取百度网页,并读取相关头部信息

Delphi 读文件到十六进制的函数(Delphi 7 下可用)

Delphi 简单判断图片类型

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...