Como converter hexadecimal para binário? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

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;

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;
Facebook Comments

Posts Relacionados

  • Administrador
  • 1.081 views
  • 0 comentários
  • 7 de abril de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados