Hash
cmx8818
这个作者很懒,什么都没留下…
展开
-
得到一个字符串的哈希Hash值
function StrHash(const SoureStr: string): Cardinal; const cLongBits = 32; cOneEight = 4; cThreeFourths = 24; cHighBits = $F0000000; var I: Integer; P: PChar; Temp: Card转载 2015-12-23 10:33:59 · 7172 阅读 · 0 评论 -
Delphi下的字符串Hash函数
有点奇怪,我在Google中查找"Delphi 字符串 Hash"居然找不到相关的Hash函数!正当我不知如何是好是,忽然想起开源的JEDI项目,这个大而全的项目虽然我极少使用,但我知道里面什么都有的。一看果然…… 下面是我从JEDI里面提取出来的Hash函数:function StrHash(const SoureStr: string): Cardinal; const转载 2016-09-18 22:08:05 · 1636 阅读 · 0 评论