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

点击打开链接

这个是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}