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中的函数定义和调用代码，能正常运� ......
急用。联系QQ：8775262，谢谢。
需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);
文件：UShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
构建
[警告] Project2.dpr(14): File not found: 'MYbho.TLB'
[警告] Project2.dpr(16): File not found: 'MYbho.RES'
......
我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
[错误] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[错误] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo ......
delphi 获得主板的硬件信息
Win32_DiskDrive要换一下，你查下msdn
http://hi.baidu.com/xuchuantao17/blog/item/dd6f1fdfe22ec41a48540314.html
插个标记
引用
Win32_DiskDrive要换一下，你查下msdn
� ......
