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

Question

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;
}
谢谢了。马上结贴。

Answer 1

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;