Fórum criar arquivo #231674

// 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;