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.