浏览代码

* ReadAllBytes was not reading all bytes. Fixes issue #40789

Michaël Van Canneyt 1 年之前
父节点
当前提交
9eb77599e1
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/vcl-compat/src/system.ioutils.pp

+ 1 - 1
packages/vcl-compat/src/system.ioutils.pp

@@ -1991,7 +1991,7 @@ begin
   With OpenRead(aPath) do
     try
        SetLength(Result,Size);
-       ReadBuffer(Result,0);
+       ReadBuffer(Result,Size);
     finally
       Free;
     end;