请问如何将一个integer类型的数据转换为一个byte数组

Question

比如我有一个整数，可以确定它的大小从0..1000,
现在我想将它用3字节来保存，请问该如何做。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
     n,i:integer;
     by:array[0..2] of byte;//0最高位，2为中位，3为最低位
begin
     n:=strtointdef(edit1.Text,-1);//n:0-1000;
     if n=-1 then
        exit;
//     n:=1000;
     i:=2;
     while(n>0) and (i>=0) do//while(n>0) 
     begin
          by[i]:=n mod 16;//余数是低位
          i:=i-1;
          n:=n div 16;
     end;
     edit2.Text:=inttostr(by[0])+'/ '+inttostr(by[1])+'/ '+inttostr(by[2]);
end;

Answer 2

var
  I: Integer; 
  b: array [0..2] of Byte;
begin
  I := 100;
  Move(i, b, sizeof(b));
  ShowMessage(IntToStr(b[0]));
  ShowMessage(IntToStr(b[1]));
  ShowMessage(IntToStr(b[2]));
end;