如何进行将Integer变量转换成array [0..3] of Byte

Question

var p : ^byte;
    a : integer;
    b : array [0..3] of byte;
    i : integer;
begin
   p := @a;
   for i := 0 to 3 do  b[i] := p[i];
end;

Answer 1

var 
  i:Integer;
  Buffer: array[0..3]of Byte;
begin
  i:=10;
  move(i,Buffer,4);
end;

Answer 2

var
  I: Integer;
  Arr: array [0..3] of Byte;
begin
  I := 123456789;
  Move(I, Arr, SizeOf(Integer));
  for I := Low(Arr) to High(Arr) do
    ShowMessage(IntToStr(Arr[I]));
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    j:array[0..3] of byte;
begin
  i:=1;
  copymemory(@j,@i,sizeof(i));
  showmessage(inttostr(j[0]));
end;

Answer 4

var
  i: Integer;
  j: array [0..3] of byte;
begin
  i := 10;
  move(i, j[0], 3);
end;