怎样将这一小段C程序翻译为delphi啊? 谢谢(20分)

  • 主题发起人 主题发起人 hangyang
  • 开始时间 开始时间
H

hangyang

Unregistered / Unconfirmed
GUEST, unregistred user!
请给我翻译成delphi吧 谢谢 分不多了哈
unsigned int CRC(unsigned int *point)
{
unsigned char i,j,k;
unsigned int x,y,z,v;

x=0;
y=0x7FE;
do
{
i=*point;
point++;
k=8;
do
{
j=i;
i*=2;
z=0;
if(j>=128)
z=256;
v=x;
x*=2;
x|=z;
if(v>=32768)
x^=0x8005;
}
while(k--);
}
while(y--);
}
 
function CRC( point : PCardinal) : Cardinal;
var
i,j,k : Integer;
x,y,z,v : Integer;
begin

x := 0;
y := 0x7FE;
do
begin
i:= PCardinal^;
PCardinal++;
k := 8;
do
begin
j := i;
i* := 2;
z := 0;
if(j>=128)
z := 256;
v := x;
x* := 2;
x Or := z;
if(v >= 32768)
x XOr := 0x8005;
end;
while(k--);
end;
while(y--);
end;
 
楼上写的不对吧。
 
问题已经解决
 

Similar threads

I
回复
0
查看
818
import
I
I
回复
0
查看
630
import
I
I
回复
0
查看
843
import
I
后退
顶部