程序使用java做后台服务,数据处理时使用了java的hashcode,Delphi程序也需要生成这个hashcode,为了一致,所以要在Delphi下实现和Java一样的算法. 下面即Delphi版的hashCode: function hashCode(val: string): Integer; var i: Integer; res: Extended; x: Integer; function RoundEx(x: Extended): Integer; begin Result :=