大家帮我译下这个C的代码吧(13分)

这是一段C的64位转32的代码函数，谁能帮我转成delphi的，最后得出ntohf即可。
UINT32 ByteOrderConvertor::htonui(UINT32 value)
{
return (((value>>24)&0x000000ffU) | /
((value>>8)&0x0000ff00U) | /
((value<<8)&0x00ff0000U) | /
((value<<24)&0xff000000U));
}

FLOAT32 ByteOrderConvertor::htonf(FLOAT32 value)
{
UINT32 tmp=htonui(*((UINT32*)(&value)));
return (*((float*)(&tmp)));
}

FLOAT32 ByteOrderConvertor::ntohf(FLOAT32 value)
{
return htonf(value);
}

只有13分了，全给了！

经过偶的N+1次调试，终于搞定了哈！