Пытался так но он вообще не работает
if TCheckBox( FindComponent('b' + IntToStr(quest_o[q]) )).Checked then

Я понял вопрос в этом

так процедуру buttonclick делай (2 раза по кнопке и там пиши) g:=+1;

Нет вопрос не втом как определить вот напрмер если чекбокс b2 нажат то otv:=otv+1
Вот это вроде как бы должно работать но условие почемуто не идет if TCheckBox( FindComponent('b' + IntToStr(quest_o[q]) )).Checked then

[PHP]procedure TForm1.Button1Click(Sender: TObject);
var
otv: integer;
begin
if CheckBox1.Checked then otv:=+1;
end;
end. [/PHP]
Вот так и с остальными, надеюсь правильно я понял.

Нет не правельно. Вообщем я делаю тест. и мне надо проверить если чекбокс = чекед то увеличиваем переменную
Вот такой код
if TCheckBox( FindComponent('b' + IntToStr(quest_o[q]) )).Checked then
Вот массив
quest_o[1] = 2;
quest_o[2] = 2;
quest_o[3] = 3;
quest_o[4] = 1;
quest_o[5] = 4;
quest_o[6] = 3;
quest_o[7] = 2;
quest_o[8] = 1;
quest_o[9] = 3;
quest_o[10] =4;
quest_o[11] = 2;
quest_o[12] = 1;
quest_o[13] = 2;
quest_o[14] = 3;
quest_o[15] = 4;
quest_o[16] = 2;
Только если написать этот if то программа какбудто его не видит и в итоге эта переменная не увеличивается если даже нажать на правельный ответ

Выложи исходник я посмотрю.

Тему можно закрыть. Буду подругому делать

Замечание модератора: Эта тема была закрыта автоматически ввиду отсутствия активности в ней на протяжении 100+ дней. Если Вы считаете ее актуальной и хотите оставить сообщение, то воспользуйтесь кнопкой или обратитесь к любому из модераторов.