É necessário estar declarado SysUtils na seção uses,
em versões unicode declare System.SysUtils.
A função transforma um inteiro em uma string binária.
Abaixo segue o código fonte da função:
1 2 3 4 5 6 7 8 9 10 11 12 | function DecToBin(Valor: Integer) : String; var Binario: String; begin while (valor >= 1) do begin Binario := IntToStr(valor mod 2) + Binario; Valor := (Valor div 2); end; Result := Binario; end; |
Exemplos de uso:
1 2 3 4 5 6 7 8 9 10 11 | procedure TForm1.Button1Click(Sender: TObject); begin // 11010010 ShowMessage(DecToBin(210)); // 11000000 ShowMessage(DecToBin(192)); // 101001 ShowMessage(DecToBin(41)); end; |
Você precisa fazer o login para publicar um comentário.
Camarada funcionou muito bem
Show de Bola
Valeu Meu Amigo !