JSON工具SuperObject编译时"整数溢出"异常的解决办法

出错的是"class function TSuperAvlEntry.Hash(const k: SOString): Cardinal;"内的循环部分.

解决办法是修改函数体内的编译指令.

首先去掉函数体内的编译指令.

再函数外增加编译指令

函数头:{$UNDEF SaveQ} {$IFOPT Q+} {$Q-} {$DEFINE SaveQ} {$ENDIF}

函数尾:{$IFDEF SaveQ} {$Q+} {$UNDEF SaveQ} {$ENDIF}