Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Convertir número Hexadecimal a Binario - Delphi
Lenguaje de programación Borland Delphi


Convertir número Hexadecimal a Binario:

function HextoBin(Hexadecimal:string):string;
 const
      BCD: array [0..15] of string=
        ('0000','0001','0010','0011','0100','0101','0110','0111',
         '1000','1001','1010','1011','1100','1101','1110','1111');
 var
    i:integer;
 begin
    for i:=Length(Hexadecimal) downto 1 do
      Result:=BCD[StrToInt('$'+Hexadecimal[i])]+Result;
end;
Ejemplo de llamada:
     Label1.Caption:=HextoBin('FA34345C2344BED');




Publicado el: 2003-11-07

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A