Файлы топика

.

Нормально все добавляется четвертый вариант, сейчас проверил, в итоге 9 правильных ответов из 9, и 9 неправильных (в случае если отвечать добавленным четвертым вариантом.

Что сделано:
В var добавил переменную:

QuestionText4: array [0..max] of string;

В procedure TForm1.LoadQuestion:
AnswerGroup.Items.Add(QuestionText4[index]);

.

Прошло уже больше года и вновь судьба свела с delphi. Щас проблема такая, нужен был тест написанный на delphi, нашел уже готовый, но есть небольшая проблемка, он расчитан на 3 варианта ответов, а нужно 4. В коде вроде все поменял, но работать как надо он не захотел, 4ый вариант ответа считает как ответ(в архиве по файлам все можно понять) Если кто разбирается гляньте если не лень, буду очень благодарен.

386
(399 kb)
Всего: 2