|

Converte um inteiro para binário

PorRenato Sanches
Compartilhe :

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;

Posts Similares