function hashedtoint(k:string):integer; 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;