Массивы

22.03.2011, 12:12. **Показов** 513. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Есть массив ответов он примерно выглядит

Delphi

var otv:array[1..16] of integer;
otv[1]:=1;
otv[2]:=3;
otv[3]:=2;
otv[4]:=4;

При этом число в ячейке не привышает 4
На форме есть 4 checkbox-а и имена они имеют b1, b2, b3, b4
var q:integer; Она имеет число которое начинается с 1 и идет до 16 (при повышается оно при нажатии на кнопку)
как мне сделать такое условие if b+otv[q].Checked then ... Так не работает (выдает ошибку) а если сделать так if TCheckBox( FindComponent('b' + IntToStr(quest_o[q]) )).Checked then то он запустит программу но то что внутри if ничего не измениться т.е. внутри дива стоит переменная otvet:=otvet+1;
Как мне определеить по массиву тот ли чекбокс нажат?

Добавлено через 15 часов 50 минут
Ошибка там не чекбоксы а радиокнопки и если теперь запустить вот так

Delphi

1	if TRadioButton( FindComponent('b' + IntToStr(quest_o[q]) )).Checked then

То почему то всеравно не работает.

@new_in_net · 22.03.2011, 20:02

Поставь радиогруппу и обращайся к свойству ItemIndex

Delphi

1 2	if otv[q] = MyRGroup.ItemIndex then ..........

	22.03.2011, 20:02