瀏覽代碼

dynarr.inc: fix issue #41244

Umi23 8 月之前
父節點
當前提交
aabd2c5067
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/inc/dynarr.inc

+ 1 - 1
rtl/inc/dynarr.inc

@@ -702,8 +702,8 @@ function DynArrayBounds(a: Pointer; typeInfo: Pointer): TBoundArray;
         exit
       else
       begin
-        result[i]:=DynArraySize(a)-1;
         a:=PPointerArray(a)^[0];
+        result[i]:=DynArraySize(a)-1;
       end;
   end;