Esta função realiza a conversão de hexadecimal para binário.
É necessário estar declarado SysUtils na seção uses,
em versões unicode declare System.SysUtils.
Abaixo segue o código fonte da função:
1 2 3 4 5 6 7 8 9 10 11 | 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; |
Exemplos de uso:
1 2 3 4 5 6 7 8 | procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(HexToBin('FAA4')); ShowMessage(HexToBin('B836')); ShowMessage(HexToBin('0F72')); ShowMessage(HexToBin('5819')); ShowMessage(HexToBin('DDBE')); end; |
