Question

delphi 整型赋值为字节，

InBuf[0]:= $55;
InBuf[1]:= $05;
InBuf[2]:= ;//3330
InBuf[3]:= ;
InBuf[4]:=$AA;
如何将整型的高低位赋值给数组2和三呢，请教高手...

Answer 1

整型数字需要区分32位还是16位，在delphi中，Integer是32位，乃当今绝大多数编毁并雀译器的缺省理解，SmallInt是16位，从问题描述中，感觉是在使用16位的整数，纤早否则，高低位又有歧义。

方法#1：
uses SysUtils;
...
X : SmallInt;
...
InBuf[2] := WordRec( X ).Bytes[1];
InBuf[3] := WordRec( X ).Bytes[0];

方法#2：
...
X : SmallInt;
...
InBuf[2] := Ord( ( PAnsiChar(@X) + 1 )^ );
InBuf[3] := PByte( @X )^;
如果是Delphi 2009以上，则InBuf[2]的赋值蔽团也可简化为InBuf[2]:=( PByte( @X ) + 1 )^;

以上方法是把高位置于InBuf[2]，低位置于InBuf[3]，若是相反，则办法更简单：PWord( @InBuf[2] )^ := X;

Answer 2

integer是者悔32位长度相当于4个字节运拦，你的数组元素2和3加起来是2个字节旁嫌胡,所以只能取其中两个字节出来给数组。大概就是如下代码吧：

var m : Integer;
m :=123456;
InBuf[2]:= PByte(integer(@m)+1)^;
InBuf[3]:= PByte(integer(@m)+2)^;