Delphi - SuperObject : raised exception class eintoverflow with message'Integer overflow'.

文章详细介绍了在超级 AVL 树中发现的哈希函数错误,并提供了正确的实现方式,确保了数据结构的一致性和高效性。

点击打开链接


这个是BUG,官方论坛已经给出这个BUG的修复了:
单元 superobject.pas,位置为 5629 行:
//class function TSuperAvlEntry.Hash(const k: SOString): Cardinal;
//var
//  h: cardinal;
//  i: Integer;
//begin
//  h := 0;
//{$Q-}
//  for i := 1 to Length(k) do
//    h := h*129 + ord(k[i]) + $9e370001;
//{$Q+}
//  Result := h;
//end;

//修改为:
{$OVERFLOWCHECKS OFF}
class function TSuperAvlEntry.Hash(const k: SOString): Cardinal;
var
  h: cardinal;
  i: Integer;
begin
  h := 0;
  for i := 1 to Length(k) do
    h := h*129 + ord(k[i]) + $9e370001;
  Result := h;
end;
{$OVERFLOWCHECKS ON}


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值