Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
DanDeL1oN
0 / 0 / 0
Регистрация: 11.02.2015
Сообщений: 115
1

Radiogroup

24.02.2017, 13:48. Просмотров 310. Ответов 2
Метки нет (Все метки)

Здравствуйте, имеется 2 radiogroup, в каждом по 2 строчки, как написать условие чтобы, при выборе первой строчки из radiogroup 1 и первой строчки из radiogroup 2, выполнялось одно действие, а при выборе второй строчки из radiogroup 1 и первой строчки из radiogroup 2 выполнялось другое действие? и так далее с другими выборами, я вот написал код
Delphi
1
2
3
if ((rg1.ItemIndex = 1) and (rg2.ItemIndex = 1))
 then d:=((b*a)/100+b)+((b*f)/100) + ((b*g)/100)
 else d:=((b*a)/100+b);
но он выполняет только 1 действие, а если дописывать еще условие то он перестает выполнять например
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.02.2017, 13:48
Ответы с готовыми решениями:

RadioGroup
procedure TForm1.Button1Click(Sender: TObject); const g=9.8; var h,t:real;...

RadioGroup
Как написать программу для удаления нечетных символов, через нажатие в...

RadioGroup
Разработайте приложение из главной и одной немодальной подчиненной формы. На...

if radioGroup
Почему не компилит мой быдло код? if RadioGroup1.ItemIndex = 0 then...

Radiogroup items
Добрый день! Скажите, можно ли менять количество и состав элементов элемента...

2
Puporev
Модератор
56127 / 42985 / 29733
Регистрация: 18.05.2008
Сообщений: 102,021
24.02.2017, 13:53 2
Delphi
1
2
3
4
5
6
7
8
if ((rg1.ItemIndex = 0) and (rg2.ItemIndex = 0))
then выполняем 1
else if ((rg1.ItemIndex = 0) and (rg2.ItemIndex = 1))
then выполняем 2
else if ((rg1.ItemIndex = 1) and (rg2.ItemIndex = 0))
then выполняем 3
else if ((rg1.ItemIndex = 1) and (rg2.ItemIndex = 1))
then выполняем 4
Добавлено через 1 минуту
Ну и добавить
Delphi
1
else ShowMessage('Не выбрано действие')
1
DanDeL1oN
0 / 0 / 0
Регистрация: 11.02.2015
Сообщений: 115
24.02.2017, 13:56  [ТС] 3
Puporev, Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.02.2017, 13:56

ADOTable и RadioGroup
Всем здравствуйте! Возникла такая проблема: необходимо что бы по нажатию...

RadioGroup в Delphi
Привет всем Есть компонент радиогрупп и в нем 5 элемента: 0 1 2 3 4 При...

Radiogroup и checklistbox
как сделать через Radiogroup и checklistbox if Edit1.Text <> '' then ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru