Convert Hexadecimal -> Binary  

Send By: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Date: 07/08/99

Tip accessed 510 times

 



 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;



A call example:


     Label1.Caption:=HextoBin('FA34345C2344BED');