Delphi 缓冲文件流-TBufferedFileStream TFileStream 性能测试


本文整理自网络,侵删。

 

uses
  System.Diagnostics; // TStopwatch

procedure TForm1.btnWriteClick(Sender: TObject);
var
  sw: TStreamWriter;
  I: Integer;
begin
  sw := TStreamWriter.Create('test.txt', False, TEncoding.UTF8);
  try
    sw.WriteLine('Hello world');
    for I := 0 to 99999 do
      sw.WriteLine('Hello ' + I.ToString);
  finally
    sw.Free;
  end;
  Memo1.Lines.Add('File written')
end;

procedure TForm1.btnReadClick(Sender: TObject);
var
  FileStream: TFileStream;
  Total, I: Integer;
  sw: TStopWatch;
  ch: Char;
begin
  sw := TStopwatch.StartNew;
  FileStream := TFileStream.Create('test.txt', fmOpenRead);
  try
    Total := 0;
    while FileStream.Read(ch, 1) = 1 do
    begin
      if ch = #13 then
        Inc(Total);
    end;
    Memo1.Lines.Add('Lines : ' + Total.ToString);
  finally
    FileStream.Free;
  end;
  sw.Stop;
  Memo1.Lines.Add('TFileStream msec : ' + sw.ElapsedMilliseconds.ToString);
end;

procedure TForm1.btnReadBufferedClick(Sender: TObject);
var
  BufFileStream: TFileStream;
  Total, I: Integer;
  sw: TStopWatch;
  ch: Char;
begin
  sw := TStopwatch.StartNew;
  BufFileStream := TBufferedFileStream.Create('test.txt', fmOpenRead);
  try
    Total := 0;
    while BufFileStream.Read(ch, 1) = 1 do
    begin
      if ch = #13 then
        Inc(Total);
    end;
    Memo1.Lines.Add('Lines : ' + Total.ToString);
  finally
    BufFileStream.Free;
  end;
  sw.Stop;
  Memo1.Lines.Add('TBufferedFileStream msec : ' + sw.ElapsedMilliseconds.ToString);
end;

相关阅读 >>

java2op.exe,Delphi安卓原生桥接文件生成器

webbrowser自动填表模板

Delphi filesearch 获取指定文件夹下所有文件包括隐藏文件

Delphi 解决idtcpclient和idtcpserver通信中文乱码问题

Delphi bmp jpg 转换保存

Delphi 按f11程序全屏

Delphi web service 多表提交的事务管理

Delphi 简单的日志记录

Delphi xe5 android手机端转换ansi字符串

Delphi 简单电池电量显示

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



打赏

取消

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

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

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

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

评论

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