فهرست منبع

* 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
   With OpenRead(aPath) do
     try
     try
        SetLength(Result,Size);
        SetLength(Result,Size);
-       ReadBuffer(Result,0);
+       ReadBuffer(Result,Size);
     finally
     finally
       Free;
       Free;
     end;
     end;