IntToBytes y viceversa

[kdemia]

function BytesToInt(Num: intBytes): Integer;
begin
Result:= 256^3 * Num[3] + 256^2 * Num[2] + 256 * Num[1] + Num[0];
end;

function IntToBytes( X: Integer ): intBytes;
begin
Result[0]:= X mod 256;
Result[1]:= X div 256;
Result[2]:= X div 256^2;
Result[3]:= X div 256^3;
end;