Combertir Hex a Binarios.

[JoseFco]

Bueno amigos tengo este programita.

Código Delphi [-]
var
  Form1: TForm1;
  Binario: string;
implementation
{$R *.DFM}
function FastIntToBin(Num: cardinal; Length: integer): string;
var
  i: cardinal;
begin
  i := 1;
  Result := '';
  while (i <= Num) or (system.Length(Result) < Length) do begin
    if Num and i = i then
      Result := '1' + Result
    else
      Result := '0' + Result;
    i := i * 2;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Binario := FastInttoBin(strtoint(Edit1.text),8);
  StaticText1.Caption := Binario[1];
  StaticText2.Caption := Binario[2];
  StaticText3.Caption := Binario[3];
  StaticText4.Caption := Binario[4];
  StaticText5.Caption := Binario[5];
  StaticText6.Caption := Binario[6];
  StaticText7.Caption := Binario[7];
  StaticText8.Caption := Binario[8];
end;
end.

Este programita esta trabajando bien.Pongo un decimal en el Edit y me regresa los bits binarios en los StaticText.

La cosa es que quiero que lea del edit hex, quiero poder ponerle hex en el edit y que me regrese binarios.Ya intente y algo no estoy haciendo bien.

¿Alguna idea

Un Saludo.

[[seoane]]

Cambia esto:

Código Delphi [-]
strtoint(Edit1.text)

Por esto:

Código Delphi [-]
strtoint('$' + Edit1.text)

[JoseFco]

Empezado por seoane

Cambia esto:

Código Delphi [-]
strtoint(Edit1.text)





Por esto:

Código Delphi [-]
strtoint('$' + Edit1.text)

Gracias Maestro.

Un Saludo.

PD:Eso quedo perfecto.