Delphi. RadioButton. Как оно работает? :)

[R11]

надо прогу написать, смысл прост.
окно, в нем панель RadioGroup(2 кнопки), либо GroupBox.
Поле ввода Edit
Поле вывода Label
Ну и кнопка вычислить.
Смысл: радио кнопки имеют значение, к примеру, 10 и 20, выбирем значение 20. В поле Edit вводим значение 30. Нажимаем кнопку вычислить и в поле Label результат вычисления, т.е. 50.
Я в этом вопросе новичок и столкнулся с проблемом.
Прога легкая, действия в одну формулу. единственно не могу понять как действуют радио кнопки
как к каждой кнопке прикрепить ее значение и как потом прописать, чтобы в формулу при вычислении вводилось то значение которую радио кнопку выбрали.
PS яндекс не выручил, много написано про радио кнопки, но везде их свойства и т.п. а конкретного разбора не нашел и листинг подобный тоже неотыскал

[_Dmitry]

Label1.Caption:=IntToStr(StrToInt(RadioGroup1.Items.Strings[RadioGroup1.ItemIndex])
+StrToInt(Edit1.Text));

здесь:
RadioGroup1.ItemIndex - номер кнопки которую выбрал юзверь,
RadioGroup1.Items.Strings[RadioGroup1.ItemIndex] - заголовок кнопки: 10 или 20,
Edit1.Text - текст в Edit1,
StrToInt() - перевод текста в целое число,
IntToStr() - перевод целого числа в текст.

[Jeni]

Если использовать RadioGroup, то занести в свойство Items необходимые строки - каждая строка это одна "радиокнопка".
В обработчике обычной кнопки (Button1.OnClick) записать код вычисления. Здесь есть два варианта:
1. Если в "радиокнопках" указаны сами значения (т.е. 10, 20 и т.д.)

// var Summa: Integer;
Summa := StrToInt(Edit1.Text) + StrToInt(RadioGroup1.Items[RadioGroup1.ItemIndex]);
Label1.Caption := IntToStr(Summa);

2. Если в RadioGroup записано что-то вроде "1-е значение = 10" и т.д., то тогда с помощью выбора:

// var Summa: Integer;
Summa := StrToInt(Edit1.Text);
case RadioGroup1.ItemIndex of
  0: Summa := Summa + 10;
  1: Summa := Summa + 20;
  // Добавить столько пунктов, сколько строк в RadioGroup
end;
Label1.Caption := IntToStr(Summa);

Вместо StrToInt можно использовать StrToIntDef или делать проверки на допустимость значений, или обрабатывать исключения.

P.S. Код писал сразу здесь, но вроде всё должно работать

[Eofol]

В случае с RadioGroup все просто -

....
var
  Num: Integer;
.....

case RadioGroup1.ItemIndex of
  0: Num := 10; //0 - индекс первого радиобатона
  1: Num := 20; //1 - индекс второго радиобатона и т. д.
end;
.....
// и потом будет шо-то типа
Label1.Caption := IntToStr(StrToInt(Edit1.Text) + Num);

А с обычными радиобатонами можно поступить так - в обработчике события OnClick присваивать к-либо переменной то значение, которое соответствует конкретному компоненту (радиобатону ) и потом опять же использовать его при вычислении

[Ярослав]

Исходник с .ЕХЕ

[R11]

а если GroupBox то все так же?

[Ярослав]

В GroupBox надо дабавить кнопки CheckBox1 или RadioButton1

[Jeni]

Сам по себе GroupBox обычно не используется, т.к. ничего кроме заголовка не содержит. Что там еще лежит?

[R11]

я имею ввиду если будет груп бокс с теме 2-мя радио кнопками, ну для усложнеия, на будущее. еще добавить CheckBox

[Ярослав]

Нужно указывать действие для каждой кнопки CheckBox1 или RadioButton1