Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.05.2013, 21:41   #1
marusua
Пользователь
 
Регистрация: 22.10.2011
Сообщений: 32
Восклицание Тест Delphi

Здравствуйте!! Нужна помощь!!
Следующая ситуация: загружаю вопросы с txt-файла, при нажатии на кнопку далее следующий код:
Код:
if AnswerQuestion[now]=AnswerGroup.ItemIndex+1 then // сравниваем значение ответа и выбранного значения
inc(ball);
AnswerGroup.ItemIndex:=-1; // убираем выделение с группы ответов
inc(now); // увеличиваем вопрос на 1+
LoadQuestion(now); // загружаем его

При возврате следующий:
if now<1 then
now:=1;
dec(now);
LoadQuestion(now);
Суть вот в чем: при возврате необходимо, чтобы можно было просмотреть соответственно какой я выбрала вариант до этого и если он меня кажется неправильным, выбрать другой. Но у меня просто возвращает, не отображает какой я ответ выбрала (использую RadioGroup) и, при выборе другого вариант, сохраняется именно тот, что я выбрала первым!

Помогите, пожалуйста, устранить проблему!!

Последний раз редактировалось Stilet; 23.05.2013 в 08:14.
marusua вне форума Ответить с цитированием
Старый 22.05.2013, 22:04   #2
paves
Пользователь
 
Регистрация: 24.09.2012
Сообщений: 16
По умолчанию

AnswerGroup.ItemIndex := "выбранное значение на предыдущем вопросе";
Для запоминания ответов, можно использовать массив.
И при переходе назад-вперёд, для заданного вопроса сохранять нужный ответ.

Последний раз редактировалось paves; 22.05.2013 в 22:10.
paves вне форума Ответить с цитированием
Старый 22.05.2013, 23:50   #3
marusua
Пользователь
 
Регистрация: 22.10.2011
Сообщений: 32
По умолчанию

Цитата:
Сообщение от paves Посмотреть сообщение
AnswerGroup.ItemIndex := "выбранное значение на предыдущем вопросе";
Для запоминания ответов, можно использовать массив.
И при переходе назад-вперёд, для заданного вопроса сохранять нужный ответ.
извини, но кодом можно???
marusua вне форума Ответить с цитированием
Старый 23.05.2013, 00:14   #4
paves
Пользователь
 
Регистрация: 24.09.2012
Сообщений: 16
По умолчанию

Код:
M_answers: array [1..100] of Integer;
//создаешь глобальную переменную - массив ответов.

При создании формы заполняешь массив -1. У Form находишь событие OnCreate и прописываешь

Код:
var
  i : Integer;
begin
for i := 1 to 100 do
  M_answers[i] := -1;
end;
При нажатии на кнопку вперёд, назад:
Код:
if M_answers[now] <> -1 then AnswerGroup.ItemIndex := M_answers[now]; //если до этого выбирали ответ, то загружаем его;
M_answers[now] := AnswerGroup.ItemIndex; //записываешь в массив выбранный ответ;

Последний раз редактировалось paves; 23.05.2013 в 00:17.
paves вне форума Ответить с цитированием
Старый 23.05.2013, 15:39   #5
alextrof94
Форумчанин
 
Регистрация: 16.03.2013
Сообщений: 599
По умолчанию

Я же скидывал пример уже, там он полностью работал, оставалось только по кнопкам функции распихать и вуаля... Там были готовые каркасы для всех этих целей, что ты спрашивала.
alextrof94$gmail.com
alextrof94 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Тест в Delphi 7 Ербулат Общие вопросы Delphi 3 13.06.2012 13:32
Delphi тест. Fin_un Помощь студентам 8 26.05.2012 22:35
тест на Delphi Джонни Помощь студентам 3 11.03.2010 00:11
Программа-тест в Delphi) скиньте))а то програмку здавать преподу надо,и самой хочется понять Delphi Верчик Помощь студентам 9 02.03.2009 17:46
Тест на Delphi Diamond Помощь студентам 2 20.04.2007 23:48