For example, the same code in Delphi, with the Pascal method.
The reading speed is less than 1 second!
```
Procedure TestReadFile();
Var
F : TextFile;
B : String;
Content : String;
LinesCount : Integer;
Begin
AssignFile( F, "test.txt" );
Reset( F );
LinesCount := 0;
While not EOF( F ) do
Begin
ReadLn( F, Buffer );
Content := Content + Buffer;
inc( LinesCount );
end;
CloseFile( F );
ShowMessage( IntToStr( LinesCount ) );
end;
```
*In DayZ, when reading a file of more than 500,000 lines, DayZ hangs.( Waiting for more than 15 minutes did not lead to anything ).
For example ~60 000 lines
SCRIPT : START: 20:25:57
SCRIPT : END: 20:26:14
For example ~120 000 lines
SCRIPT : START: 20:27:02
SCRIPT : END: 20:28:01
For example ~500 000 lines
Waiting for more than 5 minutes did not give anything. The server is hanging