Browse Source

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

Michaël Van Canneyt 1 năm trước cách đây
mục cha
commit
9eb77599e1
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  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;