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;

[himitsu]

Ja, du kannst diese Funktion so mit D2009 verwenden, aber es kommt unter Umständen ein anderer Hashwert raus, als wenn dieser mit einer AnsiVersion dieser Funktion erstellt würde. (speziell bei Zeichen ab #128)

[BlueStarHH]

Danke!

[himitsu]

bitte

[info]
Wenn diese Funktion die selben Ergebnisse liefern soll, wie unter älter Delphis,
(z.B. für eine Komunikation bzw. einen Datenaustausch mit einem älterem Delphi-Programm)
dann einfach String durch AnsiString ersetzen, aber dann ist diese Funktion natürlich nicht mehr Unicodefähig.