Hexdecimal para Binario

Question

Alguem pode me ajudar, a transformar numeros Hexdecimal
para binario. Eu vi alguma coisa como uma fun��o HexToBin,
mas n�o consegui executa la. Ex. Tenho no edit1 3FFF resultado
no Edit2 em Binario.

Grato
Juarez

Khundalini · Answer

Se bem me lembro, HexToBin � uma rotina(procedure, procedimento, etc.), e n�o uma fun��o! Fica esperto!

HexToBin() e BinToHex() s�o mencionados no help do Delphi, mas poucas pessoas sabem que essas rotinas est�o l�! Mas, como eu costumo dizer, quem procura, acha! HEHE! ;-)

Coloca tr�s labels (Label1, Label2 e Label3) e um bot�o (Button1) e no c�digo do evento OnClick do bot�o, usa o seguinte c�digo:

procedure TForm1.Button1Click(Sender: TObject);
var
E: Extended;
Buf: array[0..SizeOf(Extended) * 2] of Char;
begin
E := Pi;
Label1.Caption := Format(�E tem o valor �.15f�, [E]);
BinToHex(@E, Buf, SizeOf(E));
Buf[SizeOf(Buf) - 1] := #0;
Label2.Caption := Format(�Como texto, o conte�do em bin�rio de E � algo como �s�, [Buf]);
HexToBin(Buf, @E, SizeOf(Buf) - 1);
Label3.Caption := Format(�Volta de texto pra bin�rio, E is now �.15f�, [E]);
end;

[]s
Rubem Rocha
Manaus, AM

Kapak · Answer

[quote:b700dfb133]Se bem me lembro, HexToBin � uma rotina(procedure, procedimento, etc.), e n�o uma fun��o! Fica esperto![/quote:b700dfb133]No Delphi 6, HexToBin � uma fun��o que retorna o n�mero de caracteres colocados no par�metro Buffer....

Juarezber · Answer

kapak, pode dar um exemplo com dois edits, 1 com Hex outro com
Binario. Ex: 3FFF em Hexadecimal � = Binario 11111111111111,
3FF em Hexadecimal � = Binario 11111111111110, 3FF em Hexadecimal � = Binario 111111111111101. Se mais alguem tambem quiser responder
fico agradecido.

juarezber@terra.com.br

Kapak · Answer

Bom, n�o conhe�o nenhuma rotina que transforme desse jeito, mas vc pode fazer via c�digo:

var i,j,l:Integer; p:Pchar; b:Byte;
begin
  if Length(Edit1.Text) mod 2 > 0 then
    Edit1.Text := �0� + Edit1.Text;
  l := Length(Edit1.Text) div 2;
  p := AllocMem(l);
  HexToBin(PChar(Edit1.Text), p, l);
  for i := 1 to l do
    for j := 7 downto 0 do
    begin
      b := 1 shl j;
      if (Ord((p+i-1)^) and b) > 0 then
        Edit2.Text := Edit2.Text + �1�
      else
        Edit2.Text := Edit2.Text + �0�;
    end;
  Edit2.Text := Copy(Edit2.Text, Pos(�1�,Edit2.Text), Length(Edit2.Text));
  FreeMem(p);
end;

Juarezber · Answer

kapak, obrigado deu certo. obrigado pelas respostas a todos.juarezber@terra.com.br...

F�rum Hexdecimal para Binario #276867