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

Question

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

Answer 1

那么我试一试吧，但愿没有太大的问题，你没有给出完整的程序，无法上机运行，“纸上谈兵”吧：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;    
}

Answer 2

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;

Answer 3

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