Показать сообщение отдельно
  #4  
Старый 18.06.2010, 23:09
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

TQuestion = record //что это означает?
Это опредедление пользовательской структуры данных.

QRights := 0; // что это означает?
Инициализация переменной. Здесь будет считаться кол-во правильных ответов

btNextClick(Self); // это следующий вопрос??
Ага, оно самое. Обработчик кнопки перехода к сл. вопросу.

If RadioGroup1.ItemIndex = Q[AQuestion].RightAnswer Then Inc(QRights); // обяъсните здесь как
Читаем про соотв. компонент. В св-ве ItemIndex "лежит" номер выбранной радиокнопки из всех в группе. Тупо сравниваем его с номером прав. ответа.

Memo1.Lines.Text := ''; //здесь как бы лог ведётся ??
Нет. Это просто поле, где выводится текст вопроса. В данном месте нам надо его очистить.

Да, еше надо поправить кусочек кода:
Код:
// Выводим след. вопрос
  Memo1.Lines.Text := Q[AQuestion].Text;
  RadioGroup1.Items.Clear;
  For I := 0 To 3 Do
    RadioGroup1.Items.Add(Q[AQuestion].Answers[i]);
  RadioGroup1.ItemIndex := -1;
Ответить с цитированием