Delphi XE3 -> Integer to array of Bytes

Question

I have a data structure:

data = array of integer;

I have filled it from an

source = array of byte;

with

Answer 1

To build this as a function:

Type TBytes = array of byte;

function InttoBytes(const int: Integer): TBytes;
begin
  result[0]:= int and $FF;
  result[1]:= (int shr 8) and $FF;
  result[2]:= (int shr 16) and $FF;
end;