Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #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
Poder: 19
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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
String a Integer tuflotas Varios 9 22-01-2008 21:09:34
Integer a String en PHP noshy PHP 13 06-08-2007 19:26:36
string a Integer Juanito-Kun Varios 4 06-10-2005 12:53:43
de String a Integer!! kye_z Varios 2 20-11-2004 20:04:36
Pasar String a Integer ramonibk Varios 12 09-09-2004 17:20:20


La franja horaria es GMT +2. Ahora son las 12:42:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi