FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
de BYTE a STRING
Hola...
Tengo un dato guardado en un byte (de 8 bits) que quiero poder pasarlo a tipo cadena o entero, pero entero en base binario (110010001) y NO en base decimal (eso creo que se hace smallint(BYTE_NOM), pero no es lo que quiero). En definitiva quiero tener "visible" que bit está en 0 y que bit está en 1. Muchas gracias saludos mArCe
__________________
Marcelo C. Última edición por emeceuy fecha: 20-08-2004 a las 05:25:48. |
#2
|
||||
|
||||
¿Algo como esto?
// Saludos |
#3
|
||||
|
||||
Una versión 'simplificada':
// Saludos |
#4
|
|||
|
|||
Mas opciones:
Código:
function BinaryStr(B: Byte): String; var I: Integer; begin SetLength(Result,8); for I := 1 to 8 do begin Result[i]:= PChar('01')[(B SHR (8-I)) AND 1]; end{for}; end; Código:
function BinaryStr(B: Byte): String; var I : Integer; Ptr: PChar; begin SetLength(Result,8); Ptr:= PChar(Result); for I:= 7 downto 0 do begin Ptr^:= PChar('01')[(B SHR I) AND 1]; Inc(Ptr); end{for}; end;: |
|
|
|