var
buffer : array[0..1] of bytebegin
buffer[0]:=$80;
buffer[1]:=$64;
buffer[2]:=$A8;
buffer[3]:=$C1; //请问一下怎么把buffer转成十进制数,谢谢。end;
buffer : array[0..1] of bytebegin
buffer[0]:=$80;
buffer[1]:=$64;
buffer[2]:=$A8;
buffer[3]:=$C1; //请问一下怎么把buffer转成十进制数,谢谢。end;
用move函数可以:
var
I: Integer;
begin
Move(Buffer, I, SizeOf(I));
end;
不过这样出来的已经是负数了,也可以把I声明成Cardinal
buffer : array[0..1] of bytebegin
buffer[0]:=$20;
buffer[1]:=$05;BCD码转成十进制,谢谢
压缩型的?那就
StrToInt(IntToHex(Buffer[0], 2));
StrToInt(IntToHex(Buffer[1], 2));
bcdtointeger(Tbcd):integer;