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楼挺好懂!!
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
想请问各位：盘点维护里面：盘盈亏数量=库存数量+入库数量-出库数量，这样做是对的吗，
楼上正解,正数盘盈 负数盘亏
一楼正确！
谢谢各位啦
就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......
要求能实现二人在同台电脑上对战的 不用太花哨 最好还加上人机对战的 急需 谁帮下忙啊呀!!!!!!!!
up
baidu，google
up
http://www.codepub.com/software/view-software-4061.html
网站上有
......
