Representacion numerica

[JoseFco]

Empezado por mario2000

Hola amigos: Me canse de buscar pero no encuentro como representar numeros binarios en delphi.

Aca tengo las formas de representaciones mas comunes en delphi:

Decimal: se escribe como siempre.
Hexadecimal: se cola el signo $ delante. Ejemplo: $0f, $1A...
caracter: se coloca una ' antes y despues ' ejemplo 'a'

me faltan la octal y la binaria. Es que cuando se quiere hacer programas para micros esta es una forma muy practica de trabajar. Les agradesco su colaboracion

¿Sera esto lo que quieres? 00110010b Puede que lo que quieres es convertir esto 3 en esto 00000011b .


Como dices la reprecentacion por eso pence en la primera: 00110010b lo he encontrado en codigo Pascal.

Código Delphi [-]
function IntToBin ( value: LongInt; digits: integer ): string;
begin
    result := StringOfChar ( '0', digits ) ;
    while value > 0 do begin
      if ( value and 1 ) = 1 then
        result [ digits ] := '1';
      dec ( digits ) ;
      value := value shr 1;
    end;
end;

function BinToInt(Value: String): LongInt;
var i: Integer;
begin
  Result:=0;
//remove leading zeroes
  while Copy(Value,1,1)='0' do
   Value:=Copy(Value,2,Length(Value)-1) ;
//do the conversion
  for i:=Length(Value) downto 1 do
   if Copy(Value,i,1)='1' then
    Result:=Result+(1 shl (Length(Value)-i)) ;
end;

Un Saludo.