moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-29 04:22:16 -05:00
Code Issues Releases Wiki Activity

ReadFileString didn't return a correct value.

Browse Source
This commit is contained in:
Raymond 2010-05-24 17:57:43 +02:00
parent 478ebec14d
commit f370f865d4
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Units/MMLCore/files.pas
View File

@ -413,8 +413,7 @@ begin
end; end;
SetLength(S, X); SetLength(S, X);
MFiles[FileNum].FS.Read(S[1], x); Result := MFiles[FileNum].FS.Read(S[1], x) = x;
{Files[FileNum].BytesRead := Files[FileNum].BytesRead + X; {Files[FileNum].BytesRead := Files[FileNum].BytesRead + X;
FileRead(Files[FileNum].Handle, S[1], X); FileRead(Files[FileNum].Handle, S[1], X);
SetLength(S, X); } SetLength(S, X); }