本文整理自网络,侵删。
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 breaksend;
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 getprocesshandleasname 获取进程句柄
Delphi 读文件到十六进制的函数(Delphi 7 下可用)
更多相关阅读请进入《Delphi》频道 >>