de BYTE a STRING

[emeceuy]

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

[roman]

¿Algo como esto?

Código Delphi [-]
function BinaryStr(B: Byte): String;
const
  BinChars: array[Boolean] of Char = ('0', '1');

var
  Pot2, I: Integer;

begin
  Pot2 := 1;
  for I := 0 to 7 do
  begin
    Result := BinChars[B and Pot2 <> 0] + Result;
    Pot2 := 2*Pot2;
  end;
end;

// Saludos

[roman]

Una versión 'simplificada':

Código Delphi [-]
function BinaryStr(B: Byte): String;
var
  I: Integer;

begin
  for I := 0 to 7 do
  begin
    Result := Chr(Byte(B and 1 <> 0) + Ord('0')) + Result;
    B := B shr 1;
  end;
end;

// Saludos

[Mick]

Mas opciones:

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;

Pero sin duda esta es la mas rapida de todas las opciones propuestas:

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;:

Saludos