var seed:integer;
hash:integer;
i:integer;
begin
seed:=1313;
hash:=0;
i:=1;
while(i<=length(k)) do
begin
hash:=hash*seed+integer(byte(k[i]));
inc(i);
end;
result:= abs( hash) mod 1999;//1999哈希表长度
end;
转载于:https://my.oschina.net/jingshishengxu/blog/600741