怎么算出string的唯一ID[哈稀] 其实我就是想知道 哈系值 是怎么算出来的 就是一个string 一个唯一的 ID 不需要用这个ID 还原string 但必须是唯一最好是算法 谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TbucketList(通用的) TobjectBucketList(针对对象) THashedStringList(针对字符串) function TStringHash.HashOf(const Key: string): Cardinal;var I: Integer;begin Result := 0; for I := 1 to Length(Key) do Result := ((Result shl 2) or (Result shr (SizeOf(Result) * 8 - 2))) xor Ord(Key[I]);end;delphi 里 就这样打发了 两个疑问:1. 源串有多长口?2. ID有多少字节?首先你得从理论上保证你的任务是可行的。比如用一个8位ID,来表示汉字,这是不可能的。 1 最多 30 个字符2 ID字节数最好是一个integer看来这必须要压缩了 如果不能避免重复就没必要搞了哎 看来 哈稀也不是省油的灯啊 如何写一句 SQL 对数据进行更新及添加操作? Delphi 2005-06专家榜 无聊的代码,请解一下!!! StringGrid中的数据转换到SQL Server 2000出现错误 保存语句? 大家来讨论一下:关于建立临时表的问题 一个程序中用到了两种协议??? 事件調用 读csv文件时提示,不可识别格式 midas的连接? VC代码转DELPHI代码 请问stringgrid控件的表格怎么设置才能通edit一样不需要激活直接输入内容啊?
TobjectBucketList(针对对象)
THashedStringList(针对字符串)
function TStringHash.HashOf(const Key: string): Cardinal;
var
I: Integer;
begin
Result := 0;
for I := 1 to Length(Key) do
Result := ((Result shl 2) or (Result shr (SizeOf(Result) * 8 - 2))) xor
Ord(Key[I]);
end;
delphi 里 就这样打发了
1. 源串有多长口?
2. ID有多少字节?首先你得从理论上保证你的任务是可行的。比如用一个8位ID,来表示汉字,这是不可能的。
1 最多 30 个字符
2 ID字节数最好是一个integer看来这必须要压缩了 如果不能避免重复就没必要搞了
哎 看来 哈稀也不是省油的灯啊