programa para pasar binario a decimal y a hexadecimal

[RedVenom]

Estoy iniciando en la programacion y necesito ha cer un programa para pasar numeros binarios a decimales y alreves lo mismo con los hexadecimales osea todas las combinaciones y nose por donde empezar me gustaria que alguien me ayudra por favor.

Gracias.

[frankmch]

trata con ese codigo...


Con estas dos funciones podemos convertir números a otras bases (Hexadecimal, Octal, binario, etc)


-Pon un TMemo (Memo1) y un TButton (Button1) en tu form
-Pon este código en el OnClick del Button1:



procedure TForm1.Button1Click(Sender: TObject);

const B36 : PChar = ('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ');

function IntToBase(iValue: integer; Base: byte; Digits: byte): string;
begin
result := '';
repeat
result := B36[iValue mod BASE]+result;
iValue := iValue div Base;
until (iValue div Base = 0);
result := B36[iValue mod BASE]+result;
while length(Result) < Digits do Result := '0' + Result;
end;

function BaseToint(iValue: String; Base: byte): integer;
var
i: byte;
begin
result := 0;
for i := 1 to length(iValue) do begin
if (pos(iValue[i], B36)-1) < Base then
result := result * Base + (pos(iValue[i], B36)-1)
else begin
result := 0;
break;
end;
end;
end;


var
n : integer;
begin
{Un ejemplo: mostramos decimal, Hexadecimal y Octal}
{An example, shows Decimal, Hexadecimal and Octal}
for n:= 0 to 500 do begin
Memo1.Lines.Add( 'Dec:'+IntToStr(n)+^I+
'Hex:'+IntToBase(n,16,3)+^I+
'Oct:'+IntToBase(n,8,3) );

end;
end;

[casacham]

Buscando la forma de interconvertir en bases númericas, halle tu hilo Bicho, y la verdad es q me ahorraste horas de razonamiento y busqueda. Este hilo es simplemente para darte las gracias por ese link

[courtois]

Haz checado las funciones IntToHex, HexToBin, BinToHex

[justinesteban]

hola alguien sabe como crear una calculadora conversora con un radiobutton y un edit para pasar de cualquier base a otra (binario, octal,decimal, hexadecimal) que se convierta apenas marque la base?

[ecfisa]

Hola justinesteban y bienvenido a los foros del Club Delphi.

Como es costumbre hacia los nuevos miembros, te solicito que leas nuestra Guía de estilo , unas pocas y simples normas para que nos organicemos mejor.

Como consejo, ante una consulta nueva, habre un nuevo hilo.
De ese modo, se incrementan las posibilidades de que más personas presten atención a la misma y puedas obtener respuesta más rapidamente.

Un saludo.

[justinesteban]

hola una pregunta como abro un nuevo hilo? gracias por el consejo.

[ecfisa]

Empezado por justinesteban

hola una pregunta como abro un nuevo hilo? gracias por el consejo.

Hola.

Haces click en la pestaña Foros (parte superior izquierda de la pantalla principal). Para tu consulta el foro Varios es el indicado, hacé click en su nombre.
Luego, simplemento hacé click en el botón Nuevo hilo, situado en la parte superior izquierda de la página y ponéle un título acorde con la consulta que gustes hacer.

Un saludo.