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;

推荐分享