Как сделать выбор?

[nicolson]

Имеются данные Выбираемые из комбобокса(1А,2А) и радиогроуп(1Б,2Б):

1А 2А
1Б 5 3
2Б 8 9
Подскажите, пожалуйста, как мне отобразить в Эдите, допустим цифру "5"? Чтобы выйти на цифру "5" необходимо выбрать комбобокс(1А) и радиогроуп (1Б) с учетом того, что запись в Эдите (5,3,8,9) будет меняться?

[nicolson]

Извините некорректно указал:

Код: Выделить всё

      1А      2А 
1Б    5        3 
2Б    8        9

[Naeel Maqsudov]

nicolson, для выравнивания текста пробелами используйте тег CODE. Я в предыдущем сообщении это поправил.

Теперь по существу.

Ну это же элементарно!

Код: Выделить всё

const
  values: array[0..1,0..1] of integer = ((5,3),(8,9));

procedure TForm1.CB_or_RG_Cange(Sender: TObject);
begin
  if (ComboBox1.ItemIndex <> -1) and (RadioGroup1.ItemIndex <> -1)
   then Edit1.Text := IntToStr(values[RadioGroup1.ItemIndex,ComboBox1.ItemIndex])
   else Edit1.Text := '<select value>';
end;

Этот один обработчик надо навесить и на оба контрола.