É necessário estar declarado SysUtils na seção uses,
em versões unicode declare System.SysUtils.
A função converte uma string binária para uma string hexadecimal.
Abaixo segue o código fonte da função:
1 2 3 4 5 6 7 | function BinToHex(Binary: String): String; var vAux : Integer; begin vAux := BinToDec(Binary); Result := IntToHex(vAux, Length(IntToStr(vAux))); end; |
Exemplos de uso:
1 2 3 4 5 6 7 8 | procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(BinToHex('00001111')); ShowMessage(BinToHex('10001011')); ShowMessage(BinToHex('01001100')); end; |
A dica acima precisa de uma função disponível no link abaixo:
Converter binário para decimal – BinToDec.
