fbpx

Converte um inteiro para binário

Função que converte um inteiro para binário

function IntToBin(Value: LongInt;Size: Integer): String;
var
i: Integer;
begin
Result:=”;
for i:=Size downto 0 do
begin
if Value and (1 shl i)<>0 then
begin
Result:=Result+’1′;
end
else
begin
Result:=Result+’0′;
end;
end;
end;

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.