熟悉Delphi和VC的朋友帮忙看看

[lmpeel]

能否帮我将以下代码用delphi重写一下？急，谢谢

int write_com(unsigned char Add, unsigned int *Point)
{
int ret;
unsigned char buffer[4];
unsigned char aa;
unsigned char bb;

buffer[0] = (((*Point)&0x00F0)/0x10)+(((*Point)&0x000F)*0x10);
buffer[1] = ((((*Point)/0x100)&0x00F0)/0x10)+((((*Point)/0x100)&0x000F)*0x10);

aa = buffer[0]>>4; //High byte
bb = buffer[0]<<4; //Low byte
buffer[0] = aa|bb;
aa = buffer[1]>>4;
bb = buffer[1]<<4;
buffer[1] = aa|bb;
ret = 0;

}

有一个地方不知怎么处理 ((*Point)/0x100)&0x00F0 ，前面一步运算出来不是整型就不能再作位运算了。

[一条晚起的虫]

前面一步运算出来不是整型就不能再作位运算了//哪步会出非整形的变量？

[lmpeel]

不熟悉vc，
(*Point)/0x100 一个Int型的数除以 0x100不是有可能出小数吗？

另外
一个Int 类型的数 与 0x00F0 做 & 运算结果不就是0x00F0?, 如果不是应该是什么？
Int 是32位还是16位？

[herman~~]

关注

[支持中文哦]

老大，代码可读性高点行不？
代码是给人看的，通俗的代码机器无所谓，现在速度都那么快了，首要考虑效率问题已经不是那么重要的了。

[lmpeel]

就是啊，代码是别人写的，这是一段写卡的程序，又没有具体算法的文档，只能根据这些代码来改写

[lmpeel]

*point 取出来的是该地址的整数吧？
vc 的 / 运算应用于整数时是不是取整除？