Преобразование десятичного числа в двоичное.

[Quize]

Как преобразовать десятичного числа в двоичное?

[Doom4eg]

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
Result:=Result+'1'
else
Result:=Result+'0';
end;
end;

[Quize]

Спасибо, хорошо придумано!

[Quize]

А как сделать наоборот? (BinToInt)

[Doom4eg]

Все даже легче!

function BinToInt(Value:string):LongInt;
var
  i,Size:integer;
begin
  Result:=0;
  Size:=Length(Value)-1;
  for i:=Size downto 0 do
    if value[size-i+1]='1' then
      Result:=Result+(1 shl i);
end;