Помогите написать простенькую процедуру (Delphi).
Необходимо, написать программку, состоящую из трех переключателей (умножение далее введенного значения на 36, 49 и 81), поля ввода значения, кнопки ОК и поле вывода результата.
Помогите пожалуйста написать процедуру ButtonClick.
Знаю, что она простая, но никак не получается.
Помогите пожалуйста написать процедуру ButtonClick.
Знаю, что она простая, но никак не получается.
Размещаем на форме Button, RadioGroup, Label и Edit
Заходим RadioGroup >> items и вводим 36, 49, 81, (в каждую строку), после этого ItemIndex у RadioGroup можно поставить "0"
Два раза тыкаем на Button и пишем что-то вроде этого:
Case RadioGroup1.ItemIndex Of
0:Label1.Caption:=IntToStr(StrToInt(Edit1.Text)*36);
1:{Все тожесамое} *49);
End;
Заходим RadioGroup >> items и вводим 36, 49, 81, (в каждую строку), после этого ItemIndex у RadioGroup можно поставить "0"
Два раза тыкаем на Button и пишем что-то вроде этого:
Case RadioGroup1.ItemIndex Of
0:Label1.Caption:=IntToStr(StrToInt(Edit1.Text)*36);
1:{Все тожесамое} *49);
End;
Большое спасибо!!