Cita:
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;
while Copy(Value,1,1)='0' do
Value:=Copy(Value,2,Length(Value)-1) ;
for i:=Length(Value) downto 1 do
if Copy(Value,i,1)='1' then
Result:=Result+(1 shl (Length(Value)-i)) ;
end;
Un Saludo.