fork download

copy

var
  f: textfile;
  s: string;
  i: integer;
  sum: Int64;
  t: DWord;
  Buf: array [0 .. 4095] of Byte;
  tsr: TStreamReader;
begin
  { //generation ~500 MB
    AssignFile(f, 'e:\test.txt');
    Rewrite(f);
    for i := 1 to 10000000 do begin
    s := StringOfChar('*', 1 + Random(100));
    Writeln(f, s);
    Closefile(f);
    end; }
 
  t := GetTickCount;
  AssignFile(f, 'e:\test.txt');
  Reset(f);
  System.SetTextBuf(f, Buf);
  sum := 0;
  while not eof(f) do begin
    Readln(f, s);
    Inc(sum, Length(s));
  end;
  Memo1.Lines.add(Format('readln %d  %d', [GetTickCount - t, sum]));
  Closefile(f);
 
  sum := 0;
  t := GetTickCount;
  tsr := TStreamReader.Create('e:\test.txt', TEncoding.ANSI, false, 4096);
  while not tsr.EndOfStream do begin
    s := tsr.ReadLine;
    Inc(sum, Length(s));
  end;
  tsr.Free;
  Memo1.Lines.add(Format('StreamReader %d  %d', [GetTickCount - t, sum]));
 

Free Pascal Compiler version 3.0.0+dfsg-10 [2016/12/12] for x86_64
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(8,8) Error: Identifier not found "TStreamReader"
prog.pas(8,21) Error: Error in type definition
prog.pas(19,8) Error: Identifier not found "GetTickCount"
prog.pas(20,3) Error: Identifier not found "AssignFile"
prog.pas(28,3) Error: Identifier not found "Memo1"
prog.pas(28,19) Error: Identifier not found "Format"
prog.pas(28,44) Error: Identifier not found "GetTickCount"
prog.pas(29,3) Error: Identifier not found "Closefile"
prog.pas(32,8) Error: Identifier not found "GetTickCount"
prog.pas(33,10) Error: Identifier not found "TStreamReader"
prog.pas(33,46) Error: Identifier not found "TEncoding"
prog.pas(34,17) Error: Illegal qualifier
prog.pas(35,14) Error: Illegal qualifier
prog.pas(38,7) Error: Illegal qualifier
prog.pas(39,3) Error: Identifier not found "Memo1"
prog.pas(39,19) Error: Identifier not found "Format"
prog.pas(39,50) Error: Identifier not found "GetTickCount"
prog.pas(40) Fatal: Unexpected end of file
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode

Standard output is empty