Проверка в делфи!!!

[pr1me222]

Существует приложение "тесты", каждые варианты ответа сгруппированы по вопросам и находятся в GroupBox.
Как прописать проверку, что бы пользователь ответил на каждый вопрос, т.е. что бы один RadioButton из трех(или четырех, не важно) в GroupBox был нажат?

[Stilet]

Используй RadioGroup1. Его свойство ItemIndex даст тебе номер нажатой кнопки

[zvoronz]

Если в GroupBox больше ничего нет кроме RadioButton то элементарно. Перебирай коллекцию контролов, приводи каждый к типу RadioButton и проверяй свойство Checked.
Ну короче вот так:

procedure TForm1.btn1Click(Sender: TObject);
var i : Integer;
    fl : Boolean;
begin
  fl := False;
  for i := 0 to grp1.ControlCount - 1 do
  begin
    if TRadioButton(grp1.Controls[i]).Checked then
    begin
      fl := True;
      break;
    end;
  end;

  if not fl then MessageBox(self.Handle, 'Not selected!', '', MB_OK);
end;

[Stilet]

Ты... эм... понял о каком компоненте я говорил?
RadioGroup - это не RadioButton и не GroupBox, это их симбиант, который тебе как раз.

[pr1me222]

grp1.ControlCount

что это??

[Mad_Cat]

grp1.ControlCount

что это??

это количество контролов в Groupbox