Системы счисления и Radiobutton

[Richards]

Помогите пожалуйста, как можно реализовать систему счисления используя RadioButton?
апр.png
Вот исходник:
Calc.7z

[Serge_Bliznykov]

нужно сделать всего три вещи:
1) интерфейс - при выборе системы счисления убирать "избыточные" клавиши.
например, выбрали "bin" оставляем только клавиши "1" и "0" - остальные баттоны сделать .enable := false;
выбрали "Oct" оставляем только клавиши "0","1","2","3","4","5","6","7" - остальные баттоны сделать .enable := false;

2) при нажатии вычислительной клавиши, то, что в окошке ввода переводим из строкового представления с выбранной СС -> число (десятичное).

3) после выполнения вычислений то, что получилось переводим в нужную систему СС.

всё.

[Richards]

Это я и сам знаю как сделать, как реализовать функцию CC для Radiobutton (имеется виду чтоб вычисляла и переход между Radiobutton)

[Serge_Bliznykov]

Сообщение от Richards

имеется виду чтоб вычисляла и переход между Radiobutton

по нажатию кнопки выбора системы счисления запоминайте выбранную base (
например, заведите, глобальную переменную var base : Integer;

для перевода из одной системы счисления в другую можете воспользоваться кодом отсюда - Перевод из любой системы счисления в любую

или взять отдельно процедуры вида -
тыц
тыц
тыц

замечания.
1) уберите у себя работу с дробными числами. работайте только с целыми!
strtofloat нужно вообще выкинуть.
2) на будущее учтите, что код, который у Вас написан на процедурах клика
RadioButtonXClick()
содержит грубую логическую ошибку.

вот это:

	
	

			
				begin
If  RadioButton2.Checked then
   Button2.Enabled:=true;
  Button3.Enabled:=true;
  Button4.Enabled:=true;
  Button5.Enabled:=true;
  Button6.Enabled:=true;
  Button7.Enabled:=true;
  Button8.Enabled:=false; Button9.Enabled:=false;
  Button16.Enabled:=false;Button17.Enabled:=false;Button18.Enabled:=false;Button19.Enabled:=false;Button20.Enabled:=false;Button21.Enabled:=false;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
If  RadioButton3.Checked then

  Button2.Enabled:=true;
  Button3.Enabled:=true;
  Button4.Enabled:=true;
  Button5.Enabled:=true;
  Button6.Enabled:=true;
  Button7.Enabled:=true;
  Button8.Enabled:=true; Button9.Enabled:=true;
  Button16.Enabled:=false;Button17.Enabled:=false;Button18.Enabled:=false;Button19.Enabled:=false;Button20.Enabled:=false;Button21.Enabled:=false;

end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
If  RadioButton4.Checked then
  Button2.Enabled:=true;
  Button3.Enabled:=true;
  Button4.Enabled:=true;
  Button5.Enabled:=true;
  Button6.Enabled:=true;
  Button7.Enabled:=true;
  Button8.Enabled:=true; Button9.Enabled:=true;
  Button16.Enabled:=true;Button17.Enabled:=true;Button18.Enabled:=true;Button19.Enabled:=true;Button20.Enabled:=true;Button21.Enabled:=true;

end;
			
		

после в зависимости от If RadioButton4.Checked then выполняется только одна строчка кода.
остальные выполняются ВСЕГДА.
но всё работает, т.к. процедура Click всегда делает кнопку Checked

поэтому, можете свой код заменить на

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  Button2.Enabled:=false;
  Button3.Enabled:=false;
  Button4.Enabled:=false;
  Button5.Enabled:=false;
  Button6.Enabled:=false;
  Button7.Enabled:=false;  Button8.Enabled:=false; Button9.Enabled:=false;
  Button16.Enabled:=false;Button17.Enabled:=false;Button18.Enabled:=false;Button19.Enabled:=false;Button20.Enabled:=false;Button21.Enabled:=false;
end;



procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  Button2.Enabled:=true;
  Button3.Enabled:=true;
  Button4.Enabled:=true;
  Button5.Enabled:=true;
  Button6.Enabled:=true;
  Button7.Enabled:=true;
  Button8.Enabled:=false; Button9.Enabled:=false;
  Button16.Enabled:=false;Button17.Enabled:=false;Button18.Enabled:=false;Button19.Enabled:=false;Button20.Enabled:=false;Button21.Enabled:=false;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
  Button2.Enabled:=true;
  Button3.Enabled:=true;
  Button4.Enabled:=true;
  Button5.Enabled:=true;
  Button6.Enabled:=true;
  Button7.Enabled:=true;
  Button8.Enabled:=true; Button9.Enabled:=true;
  Button16.Enabled:=false;Button17.Enabled:=false;Button18.Enabled:=false;Button19.Enabled:=false;Button20.Enabled:=false;Button21.Enabled:=false;

end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
  Button2.Enabled:=true;
  Button3.Enabled:=true;
  Button4.Enabled:=true;
  Button5.Enabled:=true;
  Button6.Enabled:=true;
  Button7.Enabled:=true;
  Button8.Enabled:=true; Button9.Enabled:=true;
  Button16.Enabled:=true;Button17.Enabled:=true;
  Button18.Enabled:=true;Button19.Enabled:=true;Button20.Enabled:=true;Button21.Enabled:=true;

end;

[min@y™]

[Richards]

А из ходя из этой функции:

 function ConvertCC(x:string;fromCC,toCC:Integer):String;
const
  abc='0123456789ABCDEFGHIJKLMNOPQESTUVWXYZ';
var
 i,k,ten,stp:integer;
begin
 ten:=0;
 stp:=1;
 Result:='';
 for i:=Length(x) downto 1 do begin
   k:=Pos(x[i],abc)-1;
   ten:=ten+k*stp;
   stp:=stp*fromCC;
 end;
 while ten<>0 do begin
   i:=ten mod toCC;
   Result:=abc[i+1]+Result;
   ten:=ten div toCC;
 end;
end;

Как можно записать что при выборе, например RadioButton1 (Bin) переводилось из двоичной системы в 8, 10 и 16, а при выборе, например RadioButton2 (Oct) переводилось из двоичной системы в 2, 10 и 16 и т. д.
Я побывал писать но у меня какой-то бред получается, вот даже исходник скину:

procedure TForm1.RadioButton1Click(Sender: TObject);
var
Option:integer;
begin
Case Option of
Edit1.Text:=ConvertCC(inttostr(8));
Edit1.Text:=ConvertCC(inttostr(10));
Edit1.Text:=ConvertCC(inttostr(16));
  Button2.Enabled:=false;
  Button3.Enabled:=false;
  Button4.Enabled:=false;
  Button5.Enabled:=false;
  Button6.Enabled:=false;
  Button7.Enabled:=false;  Button8.Enabled:=false; Button9.Enabled:=false;
 Button16.Enabled:=false;Button17.Enabled:=false;Button18.Enabled:=false;Button19.Enabled:=false;Button20.Enabled:=false;Button21.Enabled:=false;
end;