在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
程序使用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 := Trunc(x) + Trunc(Frac(x) * 2); end; begin res := 0; for i := 1 to Length(val) do begin res := res + Ord(val[i]) * Power(31, Length(val) - (i - 1) - 1); end; Result := RoundEx(res); end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论