FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda con Conversion
Ya pude convertir numeros binarios,hexadecimales y octales a decimales pero ahora quiero convertir decimales, hexadecimales y octales a binarios pero nose como me imagino que es el mismo principio que use en lo otro pero nose como aplicarlo, alguien me podria hechar una mano por favor aqui les pongo la funcion que use:
function BaseNADec(num : string; n : byte) : integer; var i : integer; aux : string; begin // aux para determinar el numero hexadecimal aux:='0123456789ABCDEF'; result:=0; for i:=1 to length(num) do result:=result*n+pos(upcase(num[i]),aux)-1; end; // De base 16 (hexadecimal) a base 10 (decimal) function HexADec(num : string) : integer; begin result:=BaseNADec(num,16); end; espero su ayuda gracias |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|