Como converter hexadecimal para binário?
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; |
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; |
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(HexToBin('FAA4'));
ShowMessage(HexToBin('B836'));
ShowMessage(HexToBin('0F72'));
ShowMessage(HexToBin('5819'));
ShowMessage(HexToBin('DDBE'));
end;
-
InfusTec
-
4.786 views
- 0 comentários
- 7 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo