高分请教如何翻译一下这段c的程序变成delphi，谢谢了

[deng_xiao_ke]

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);

}

[QuickKeyBoard]

那么我试一试吧，但愿没有太大的问题，你没有给出完整的程序，无法上机运行，“纸上谈兵”吧：

procedure uart1_sendincor(Byte tid)
var
crc: Integer;
begin
uart1_tdata[0] := '$';
uart1_tdata[1] := Chr(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] = Chr(crc shr 8);
uart1_tdata[7] = Chr(crc);
end;

function calcrc(ptr: ^Char; count: Byte): Integer;
const
crc: Integer = 0;
var
i: Byte;
begin
while count >= 1 do
begin
Dec(count);
crc := crc xor Ord(ptr) shl 8;
Inc(ptr);
for i := 0 to 7 do
if (crc and $8000) <> 0 then
crc : = crc shl 1 xor $1021
else
crc := crc shl 1;
}
calcrc := crc;
}

[S.F.]

up,QuickKeyBoard() 的就要顶

[Kevin_Lmx]

procedure uart1_sendincor(tid :Byte)
var
crc: Integer;
begin
uart1_tdata[0] := '$';
uart1_tdata[1] := Chr(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] = Chr(crc shr 8);
uart1_tdata[7] = Chr(crc);
end;

function calcrc(ptr: ^Char; count: Byte): Integer;
const
crc: Integer = 0;
var
i: Byte;
begin
while count >= 1 do
begin
Dec(count);
crc := crc xor Ord(ptr) shl 8;
Inc(ptr);
for i := 0 to 7 do
if (crc and $8000) <> 0 then
crc : = crc shl 1 xor $1021
else
crc := crc shl 1;
end;
result := crc;
end;

[Kevin_Lmx]

由QuickKeyBoard()的代码改了改……
我是写不出来……
^_^

[beyondtkl]

那偶也頂..

[deng_xiao_ke]

谢谢各位直接