ReadFileString didn't return a correct value.

2010-05-24 17:57:43 +02:00 · 2010-05-24 17:57:43 +02:00 · f370f865d4
parent 478ebec14d
commit f370f865d4
1 changed files with 1 additions and 2 deletions
--- a/Units/MMLCore/files.pas
+++ b/Units/MMLCore/files.pas
@ -413,8 +413,7 @@ begin
  end;

  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;
  FileRead(Files[FileNum].Handle, S[1], X);
  SetLength(S, X); }