ELF-Hash mit Unicode OK?

[BlueStarHH]

Hallo,

hier im Forum habe ich folgenden Code gefunden um aus einem String einen ELF-Hash zu erzeugen. Kann ich diese Funktion mit Delphi 2009 und Unicode nutzen? Es lässt sich ohne Probleme compilieren, doch ob das auch logisch richtig ist, kann ich nicht prüfen, da mir das Wissen dazu fehlt. Danke!

Delphi-Quellcode:

Function HashFromStr(Const Value: String): Cardinal; // ELF-Hash
Var
  i: Integer;
  x: Cardinal;
Begin
  Result := 0;
  For i := 1 To Length(Value) Do Begin
    Result := (Result Shl 4) + Ord(Value[i]);
    x := Result And $F0000000;
    If (x <> 0) Then
      Result := Result Xor (x Shr 24);
    Result := Result And (Not x);
  End;
End;