Калькулятор. Перевод чисел.

[nikitoto]

Здравствуйте!
Подскажите пожалуйста, как переводить числа из двоичной системы в десятичную и наоборот, т.е. сделать своего рода калькулятор: в Edit1 пишешь число, жмем кнопку, в Edit2 это же число в двоичной.
Заранее спасибо.

[Mandrivnyk]

ЯП какой нужен?

[nikitoto]

эээ в delphi нужна прога

[IT-man]

{**********************************************************}
 // Binary to Integer 

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


 // Integer to Binary 

function IntToBin1(Value: Longint; Digits: Integer): string;
 var
   i: Integer;
 begin
   Result := '';
   for i := Digits downto 0 do
     if Value and (1 shl i) <> 0 then
       Result := Result + '1'
   else
     Result := Result + '0';
 end;

источник