[anyta]

можете пожалуйста помочь мне нужно написать программу перевода Bin to Dec (из 2 в десятичную систему) на Delphi с использованием функции StrToInt и чтобы можно было вводить числа с запятой . заранее спасибо . вот на примере программы обратной данной, в каком обьекте ее писать в кнопке "Ок" или в "Combobox" подскажите пожалуйста..заранее спасибо ..

Пример из 10 в 2 систему:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: LONGINT;
  DEC:integer;BIN:string;
begin
DEC:=strtoint(edit1.Text);
  if DEC = 0 then
    BIN:= '0'
  else
  begin
    BIN := '';
    I := 0;
    while (1 shl (I + 1)) <= DEC do
      I := I + 1;

    for J := 0 to I do
    begin
      if (DEC shr (I - J)) = 1 then
        BIN := BIN + '1'
        
      else
        BIN := BIN + '0';
      DEC := DEC and ((1 shl (I - J)) - 1);
     
    end;
  end;
  label1.Caption:= BIN;
end;
end.

lmikle: Пользуемся тегами!!!