帮忙转变一个函数

[youxihaha]

帮忙把下面的函数转成pascal代码,谢谢
unsigned int hashpjw(char *arKey, unsigned int nKeyLength)
{
unsigned int h = 0, g;
char *arEnd=arKey+nKeyLength;
while (arKey < arEnd) {
h = (h << 4) + *arKey++;
if ((g = (h & 0xF0000000))) {
h = h ^ (g >> 24);
h = h ^ g;
}
}
return h;
}

[lxpbuaa]

function hashpjw(arKey: PChar; nKeyLength: DWord): DWord;
var
h, g: DWord;
arEnd: PChar;
begin
h := 0;
arEnd := arKey + nKeyLength;
while arKey < arEnd do
begin
h := (h shl 4) + Ord(arKey[0]);
Inc(arKey);
g := h and $F0000000;
h := h xor (g shr 24);
h := h xor g;
end;
Result := h;
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[hiflower]

function hashpjw(arKey: PChar; nKeyLength: DWORD): DWORD;
var
h:DWORD=0;
g:DWORD;
arEnd: PChar;
begin
h := 0;
arEnd := arKey + nKeyLength;
while arKey < arEnd do
begin
h := (h shl 4) + Ord(arKey^);
Inc(arKey);
g := h and $F0000000;
if g<>0 then
begin
h := h xor (g shr 24);
h := h xor g;
end;
end;
Result := h;
end;