IntToBytes y viceversa

[kdemia]

Que tal gente, queria saber como poder pasar un Integer (4 bytes) a un arreglo de bytes, es decir, a groso modo en delphi tendria que ser hipoteticamente asi

Código Delphi [-]
type
  intBytes = Array[0..3] of Byte;
var
  X: Integer;
  B: intBytes;
begin
  X:= 500;
  B:= IntToBytes(X);
  X:= BytesToInt(B);  
end;

El ejemplo es para ilustrar mejor el problema, osea quiza tmb necesite, o no, algun flag para el signo u otras cosas. A lo que voy es que no necesariamente quiero que quede asi el codigo, la idea es la conversion.

Saludos

[ecfisa]

Hola.

Para pasar un entero a binario:

Código Delphi [-]
function IntToBin(Valor: Longint; Digitos: integer): string;
begin
  result:= StringOfChar('0', Digitos);
  while Valor > 0 do
  begin
    if Valor and 1 = 1 then
      Result[Digitos]:= '1';
    Dec(Digitos) ;
    Valor:= Valor shr 1;
  end;
end;

Luego podés recorrer la cadena resultante para asignar los valores a tu arreglo.

Saludos.

[kdemia]

Gracias ecfisa, pero no hay una manera mas rapida que separar el binario en grupos de 8 ?

[kdemia]

Resuelto.. cada numero corresponde a 256^Posicion * Numero[Posicion]

[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;

[ecfisa]

Hola kdemia.

No entiendo muy bién tu última pregunta, pero si quisieras hacer algo mas "a medida" al código de tu primer consulta:

Código Delphi [-]
...
type
  TIntBytes = Array[0..3] of Byte;

procedure CargarArreglo(var V: TIntBytes; Num: Byte); // valor máximo de Num: 15
var
  i: Byte;
begin
  for i:= 3 downto 0 do
    V[i]:= (Num shr i) and 1;
end;

Que sería similar a llamar a IntToBin(n, 4). Te estarías ahorrando el pasaje al arreglo, eso sí...

Saludos.

Edito: Me llamaron mientras estaba editando y no ví tus 2 nuevos mensajes. Pero veo que ya encontraste otra solución, me alegra mucho

[Casimiro Notevi]

Por favor:

[Lord Delfos]

Si entiendo bien la pregunta, se podría hacer algo como esto:

Código Delphi [-]
type TArreglo = array [1..SizeOf(Integer)] of Byte;

procedure Algo;
var Entero: Integer;
     Arreglo: ^TArreglo;
     Ind: Integer;
     A: String;
begin
  Entero:= 5;
  Arreglo:= @Entero;
  // Para mostrarlo no más.
  A:= '';
  for Ind:= 1 to SizeOf(Integer) do
    A:= A + '[' + IntToStr(Arreglo^[Ind]) + ']';
  ShowMessage(A);  
end;

Lo que hacemos es tener un puntero a un arreglo de x bytes (probablemente 4, pero nunca hay que fiarse de la longitud de un Integer, porque el tamaño puede variar), y una variable Integer propiamente dicha. Después asignamos al puntero la dirección de memoria del entero y listo.

Espero sirva. Saludos.