FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
bits de un char
Estimados, es posible leer los bits de un char uno a uno ?
gracias Mau |
#2
|
|||
|
|||
Si, con algo parecido a esto:
Código:
var i:integer; car:char; asc:integer; begin car:= 'A'; asc:= ord(car); for i:=7 downto 0 do begin if (asc AND 1)=1 then ShowMessage('El Uno') else ShowMessage('El Cero'); asc:= asc SHR 1; end; end; |
#3
|
||||
|
||||
Ok
Lo de Mick es es la idea, pero les dejo una funcion un poco mas útil para estos casos:
El modo de empleo es identico al de la funcion IntToHex de la unidad SysUtils, y para obtenerlo de un char, simplemente haces algo como ésto:
Espero les sirva, saludos! Última edición por cHackAll fecha: 12-06-2007 a las 22:38:50. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Recursos de 24 y 32 bits en Delphi | onlytk | Varios | 0 | 16-12-2005 22:18:51 |
C++Builder y 64 bits | locotenentul | C++ Builder | 2 | 19-10-2005 09:21:40 |
computadoras a 64-bits | dape | Varios | 3 | 04-10-2005 05:19:22 |
Delphi 7 y S.O de 64 Bits | senpiterno | Varios | 3 | 29-11-2004 23:22:36 |
Firebird y S.O de 64 bits | senpiterno | Firebird e Interbase | 6 | 28-11-2004 01:18:31 |
|