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楼挺好懂!!