并且能保证不同的字符串转换出来的数字是唯一的,比如将'aaaa'转换成一个数字?
解决方案 »
- 控件的默认属性保存藏到那里了
- 见过这种情况的告诉我
- 出库临时表提交后,要求减去库存相应的部分,你们一般怎么设计?我用BatchMove1的batDelete,结果出现index does not exist,如何设计?
- 如何给 treeview的节点设置上网址连接,点击后,跳到一个网站上??
- 寻书!!!谢谢
- 请教,关于远程服务器上的数据库表
- 设个标志位,只取0,1两个值,该定什么类型好?
- 读取DBGrid 数据问题?
- 寻找delphi6的注册码
- 如何使用网卡进行直接通讯?
- 简单的文件函数的错误.不知道为什么 哪里都没问题啊.应该 请大家帮忙看看
- 操作注册表问题 AReg.RootKey:=HKEY_LOCAL_MACHINE;
不同的字符串取出来的整型值不一样就可以了
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;
----------------
如 aaaa= 11*36*36*36+11*36*36+11*36+11=527879
如果字符串太 这个数就会很大