bits de un char

[mauqu]

Estimados, es posible leer los bits de un char uno a uno ?

gracias

Mau

[Mick]

Si, con algo parecido a esto:

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;

Saludos

[[cHackAll]]

Lo de Mick es es la idea, pero les dejo una funcion un poco mas útil para estos casos:

Código Delphi [-]
function IntToBin(Value, Digits: Cardinal): string;
var Bit: Cardinal;
begin
 Bit := 1;
 while Digits <> 0 do
  begin
   Result := Char(Byte((Value and Bit) <> 0) + Ord('0')) + Result;
   Bit := Bit shl 1;
   Dec(Digits);
  end;
end;

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:

Código Delphi [-]
 Caption := IntToBin(Byte('@'), 8);

Espero les sirva, saludos!