数值溢出处理

[dhua_fj]

我用C++ Builder 6编译VCL时，老是提示数值溢出，程序中断执行，
里面有关闭溢出检测开关，但是在BCB6下无效，请问该如何处理？谢谢

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 := cardinal(h*129 + ord(k[i]) + $9e370001);
{Q+}
Result := h;
end;

[CppFile]

delphi代码不懂。。不过为什么要用bcb编译pascal代码呢？要安装控件吗？

[周药师]

没看懂lz要表达什么意思

[dhua_fj]

这段是delphi的VCL代码，
里面有临时关闭数值溢出检测的代码
{$Q-}
{$Q+}
但是在BCB6下面无效，还是提示数值溢出错误，程序中断，
该如何处理使这段代码在BCB6下也能实现临时关闭数值溢出检测？

[frtrnr]

遇到了同样的问题，就搜索到了这里

方案：

将遇到Cardinal的地方改为Int64