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}