punteros y arrays...Urgente please!!

andres1569 · #2 03-07-2003

Prueba algo como esto, usando la función lo que devuelve el byte de menor orden, y "corriendo" el número hacia la derecha a saltos de 8 bits mediante shr:

Código:

var
  L : DWORD;
begin
  L := Buffer^;  
  Aux[7] := Lo(L);
  L := L shr 8;
  Aux[6] := Lo(L);
  L := L shr 8;
  Aux[5] := Lo(L);
  L := L shr 8;
  Aux[4] := Lo(L);
  ...
end;

Lo he hecho al revés, desde el 7 al 4, aunque también existe la función Hi que decuelve el Byte de mayor orden, pero ocurre que está pensada para un entero de 2 bytes (Smallint) y no serviría para el tipo DWord.