一小段的C语言代码换成Pascal/Delphi

C/C++ code

unsigned int CRC(unsigned int crc, unsigned int byte){    unsigned int data;    unsigned int data1;    unsigned int data2;        data = crc>>8;    data1 = (crc ^ byte) & 0xff;    data2= table[data1 ];    data1 = data ^ data2;    return data1;}

谢谢了。马上结贴。

[解决办法]
unsigned int CRC(unsigned int crc, unsigned int byte)
{
unsigned int data;
unsigned int data1;
unsigned int data2;

data = crc>>8;
data1 = (crc ^ byte) & 0xff;
data2= table[data1 ];

data1 = data ^ data2;

return data1;
}
//-----------------我来帮你翻译下吧。虽然1楼指出了主要的运算符.....
function CRC( crc, nbyte:cardinal ):cardinal;
var
data,data1,data2:cardinal;
begin
data := crc8 shr 8;
data1 := (crc xor nbyte) and $ff;
data2 := table[ data1 ];
data1 := data xor data2;
result := data1;
end;