Combertir Hex a Binarios.

[JoseFco]

Bueno amigos tengo este programita.

http://suncoastmicros.com/images/Dec_bin.jpg



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:

strtoint(Edit1.text)


Por esto:

strtoint('$' + Edit1.text)

[JoseFco]

Cambia esto:

Código Delphi [-] (http://www.clubdelphi.com/foros/#)
strtoint(Edit1.text)





Por esto:

Código Delphi [-] (http://www.clubdelphi.com/foros/#)
strtoint('$' + Edit1.text)





Gracias Maestro.

Un Saludo.

PD:Eso quedo perfecto.:)