fbpx

Converte um número decimal em binário

Converte um número decimal em binário

function DecToBinStr(n: integer): string;
var
S: string;
i: integer;
Negative: boolean;
begin
if n < 0 then
begin
Negative := true;
end;
n := Abs(n);
for i := 1 to SizeOf(n) * 8 do
begin
if n < 0 then
begin
S := S + ‘1’;
end
else
begin
S := S + ‘0’;
end;
n := n shl 1;
end;
Delete(S,1,Pos(‘1’,S) – 1);//remove leading zeros
if Negative then
begin
S := ‘-‘ + S;
end;
Result := S;
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.