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

deng_xiao_ke 2005-01-24 04:04:10
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);

}
...全文
73 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
deng_xiao_ke 2005-01-25
  • 打赏
  • 举报
回复
谢谢各位直接
beyondtkl 2005-01-25
  • 打赏
  • 举报
回复
那偶也頂..
Kevin_Lmx 2005-01-24
  • 打赏
  • 举报
回复
由QuickKeyBoard()的代码改了改……
我是写不出来……
^_^
Kevin_Lmx 2005-01-24
  • 打赏
  • 举报
回复
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;

S.F. 2005-01-24
  • 打赏
  • 举报
回复
up,QuickKeyBoard() 的就要顶
QuickKeyBoard 2005-01-24
  • 打赏
  • 举报
回复
那么我试一试吧,但愿没有太大的问题,你没有给出完整的程序,无法上机运行,“纸上谈兵”吧:

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

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧