// Decimal.text é um edit que recebe o valor decimal // Binario.text é um edit que recebe o resultado do binário Procedure TForm1.SpeedButton1Click(Sender: TObject); var dec:integer; rest_decimal:integer; bina:string; begin  rest_decimal:=1000000;  while rest_decimal<>0 do  begin  if rest_decimal=1000000 then   begin   dec:=strtoint(decimal.text);   end     else     begin     dec:=rest_decimal;     end;   rest_decimal:=(dec div 2); {   if not rest_decimal) then     begin     rest_decimal:=(rest_decimal div 2);     dec:=rest_decimal;     end;}   if ((rest_decimal)* 2) <> dec then    begin    bina:='1'+bina;    end     else      begin      bina:='0'+bina;      end;   end;  binario.text:= bina; end;

Quebra-Linha

Colaborador..: Rommel Ramos
Categoria(s).: Programação; Delphi;
Versão.......: Delphi
Data.........: 20/02/2003 22:52:45
Visualizado..: 3853 vezes
Fonte........: Rommel Thiago