瀏覽代碼

Initialize the result before copy the values to it.

Henrique Gottardi Werlang 1 年之前
父節點
當前提交
ed4651fb1a
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      packages/rtl/src/classes.pas

+ 1 - 0
packages/rtl/src/classes.pas

@@ -6570,6 +6570,7 @@ Var
 begin
   // This must be improved, but needs some asm or TJSFunction.call() to implement answers in
   // https://stackoverflow.com/questions/29676635/convert-uint8array-to-array-in-javascript
+  SetLength(Result, Mem.Length);
   for i:=0 to mem.length-1 do
     Result[i]:=Mem[i];
 end;