C++译成Pascal(20分)

P

praisesoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-05

• #1

void PutByte(char *pPacket, BYTE value, int &nPos)
{
*(BYTE*)(pPacket + nPos) = value;
nPos += sizeOf(BYTE);
}
/*
*(BYTE*)(pPacket + nPos)//是什么意思
*/

 

S

SparkV

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-05

• #2

*(BYTE*)(pPacket + nPos)
意思是说把nPacket这个指针表示的地址值加上nPos这个偏移量之后，得到的新地址值作为指向BYTE数据类型的指针。所以这个函数转换成Delphi形式的就是－－
procedure PutByte(pPacketChar;value:Byte;var nPos:integer);
begin
inc(pPacket,nPos);
PByte(pPacket)^:=value;
inc(nPos,SizeOf(Byte)
end;

 

孤

孤独之孤

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-05

• #3

procedure PubByte(pPacketChar;Value:Byte;var nPos:integer);
begin
Inc(pPacket,nPos);
pPacket^ := Char(Value);
Inc(nPos,SizeOf(Byte));
end;

 

P

praisesoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-05

• #4

谢谢两位!