Delphi dicas

Convertendo decimal para binario - bem simples

{Função para converter numeros decimais em binarios. O retorno é uma string}

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;

por : Clévison Prado Batista