Ver Mensaje Individual
  #5  
Antiguo 26-02-2008
Avatar de Lord Delfos
Lord Delfos Lord Delfos is offline
Miembro
 
Registrado: ene 2008
Ubicación: Tandil, Argentina
Posts: 558
Reputación: 17
Lord Delfos Va por buen camino
Hola, acertij022.

Yo he hecho algo así:

Código Delphi [-]
var Arreglo:array[1..4] of char;
    Destino:integer;
    p:PChar;
begin
  p:=@Destino; //p apunta al primer byte de Destino
  p^:=Arreglo[1];inc(p); // Seteamos el destino de p con el valor del arreglo e 
                                //  incrementamos el puntero para ir a la segunda posición.
  p^:=Arreglo[2];inc(p);// Y así sucesivamente...
  p^:=Arreglo[3];inc(p);
  p^:=Arreglo[4];
end;

Dos cosas a tener en cuenta.

[1] La endianess del tipo. No sé qué pasaría si el integer fuera big-endian...
[2] El tipo de dato integer es genérico, y no necesariamente va a tener 32 bits... Sería más seguro usar Longint, que siempre va a tener 32 bits.

Espero te sirva. Saludongos.

Última edición por Lord Delfos fecha: 26-02-2008 a las 23:26:53.
Responder Con Cita