Delphi Integer转为byte[]
在Delphi中Integer占用4个字节，现在怎么把一个Integer转换为长度为4的byte[] ?
byte(x) x:integer;
1楼：写的什么东东。
2楼：我去试一试。
2楼：这个写法是大端还是小端呢？
var
i:integer;
buf:array[0..3] of byte;
begin
move(i,buf[0],4);
end;
Type
PbyteAry=^TbyteAry;
TbyteAry=Array[0..3] of byte;
var b:TbyteAry;
i:integer;
begin
i:=1000;
//方法1
move(i,b,SizeOf(TbyteAry));
//方法2
b:=PbyteAry(@i)^;
//showmessage(inttostr(Integer(b)));
end;
还可以前程Record的来实现：
Type
TRec=Record
case boolean of
True:(Int:Integer);
False:(ByteAry:Array[0..3] of byte);
end;
var r:TRec;
begin
r.Int:=1000;
showmessage(inttostr(Integer(r.ByteAry)));
end;
var
bb : array[0..3] of byte;
a :integer;
a := 5;
move(a,bb,4);
多谢各位!!2楼挺好懂!!
相关问答：
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
想请问各位：盘点维护里面：盘盈亏数量=库存数量+入库数量-出库数量，这样做是对的吗，
楼上正解,正数盘盈 负数盘亏
一楼正确！
谢谢各位啦
就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
构建
[警告] Project2.dpr(14): File not found: 'MYbho.TLB'
[警告] Project2.dpr(16): File not found: 'MYbho.RES'
......
IF THEN ELSE中多个条件怎么写，如：字符串S1，S2，S3，S4均要不为空。
怎么样把它写到IF中去？
请各位帮帮忙，谢谢！
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......
