高分请教如何翻译一下这段c的程序变成delphi,谢谢了
void uart1_sendincor(unsigned char tid)
{
int crc;
uart1_tdata[0] = '$';
uart1_tdata[1] = tid;
uart1_tdata[2] = 0;
uart1_tdata[3] = 0;
uart1_tdata[4] = 0;
uart1_tdata[5] = 0;
crc = calcrc(uart1_tdata,6);
uart1_tdata[6] = (unsigned char)(crc>>8);
uart1_tdata[7] = (unsigned char)crc;
return;
}
int calcrc(unsigned char *ptr, unsigned char count)
{
int crc = 0;
unsigned char i;
while ((count--) >= 1)
{
crc = crc ^ (int) *ptr++ << 8;
for (i = 0; i < 8; ++i)
if (crc & 0x8000)
crc = crc << 1 ^ 0x1021;
else
crc = crc << 1;
}
return (crc);
}