Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#93: Hash function for strings

Today I found a good hash function in delphi sources (dbtables.pas):

function GetHashCode(Str: PChar): Integer;
var
  Off, Len, Skip, I: Integer;
begin
  Result := 0;
  Off := 1;
  Len := StrLen(Str);
  if Len < 16 then
    for I := (Len - 1) downto 0 do
    begin
      Result := (Result * 37) + Ord(Str[Off]);
      Inc(Off);
    end
  else
  begin
    { Only sample some characters }
    Skip := Len div 8;
    I := Len - 1;
    while I >= 0 do
    begin
      Result := (Result * 39) + Ord(Str[Off]);
      Dec(I, Skip);
      Inc(Off, Skip);
    end;
  end;
end;

Published: August 1, 2000

See also

	DBExport tools
	ABA Spreadsheet Convert
	Clarion Viewer
	Word Web-stream
	ABA Picture Convert
	Metafile Convert
	ABA Document Convert
	DBISAM Password Recovery
	Fast Document Viewer
	DBISAM Viewer

Contact to webmaster