Răsfoiți Sursa

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

Michaël Van Canneyt 1 an în urmă
părinte
comite
9eb77599e1
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  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;