|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.05.2013, 21:57 | #1 |
Пользователь
Регистрация: 22.10.2011
Сообщений: 32
|
Тесты в Delphi
Здравствуйте!!! Ситуация следующая: у меня есть в программе тестирование; тесты гружу из *.txt. Возможно ли вернуть предыдущий вопрос! Знаю, что, если создавать тесты через БД, то можно, но без понятия про данный случай!
Вот мой код на кнопку "Далее": if AnswerQuestion[now]=AnswerGroup.ItemIndex+1 then // сравниваем значение ответа и выбранного значения inc(ball); AnswerGroup.ItemIndex:=-1; // убираем выделение с группы ответов inc(now); // увеличиваем вопрос на 1+ LoadQuestion(now); И еще, как можно осуществить такую задачу: можно смотреть справку на каждый вопрос, т.е. ответила на один, нажала "Далее", открылся новый, не знаю ответ, посмотрела справку по этому вопросу, как в ПДД и т.д.? Заранее спасибо!!! |
02.05.2013, 22:13 | #2 | |
Старожил
Регистрация: 08.04.2012
Сообщений: 3,229
|
Можно.
Уберите эти две строки: Код:
Цитата:
|
|
02.05.2013, 22:29 | #3 |
Пользователь
Регистрация: 22.10.2011
Сообщений: 32
|
[QUOTE=s-andriano;1222519]Можно.
Уберите эти две строки: Код:
|
02.05.2013, 22:49 | #4 |
Форумчанин
Регистрация: 16.03.2013
Сообщений: 599
|
Кажись первокурсница? Да? Весна, все первокурсники как люди пишут простой тест, а я как придурок клиент-серверное(-мастер_серверное) приложение для дистанционного обучения.
1. Грузим первую строку в AllCount:integer, а остальной текст в S:TStringList. Допустим вопрос идет первой строкой, 4 варианта ответа, и правильный ответ следом, т.е. структура: Код:
3. Показываем вопрос под номером N: Код:
Код:
Код:
alextrof94$gmail.com
Последний раз редактировалось alextrof94; 03.05.2013 в 00:35. |
02.05.2013, 23:01 | #5 |
Форумчанин
Регистрация: 16.03.2013
Сообщений: 599
|
А так же я понял вашу проблему...
Inc - аналогичен ++, а Dec - аналогичен --; Т.е. чтобы прибавить надо inc(now), чтобы убавить dec(now), а затем уже loadquestion(now); т.е. вместо Код:
Код:
alextrof94$gmail.com
|
02.05.2013, 23:35 | #6 | |
Пользователь
Регистрация: 22.10.2011
Сообщений: 32
|
Цитата:
и да, не первокурсница ... 4 курс ... но ты же не знаешь для чего это нужно, можешь не ухмыляться!!! |
|
02.05.2013, 23:40 | #7 | |
Пользователь
Регистрация: 22.10.2011
Сообщений: 32
|
Цитата:
|
|
03.05.2013, 00:09 | #8 | |
Форумчанин
Регистрация: 16.03.2013
Сообщений: 599
|
Цитата:
Код:
alextrof94$gmail.com
|
|
03.05.2013, 00:18 | #9 | |
Пользователь
Регистрация: 22.10.2011
Сообщений: 32
|
Цитата:
и кстати, не стоит оскорблять, я в вашем мнении - по поводу умная я или нет - не нуждаюсь!! вы могли и не помогать!!! |
|
03.05.2013, 00:23 | #10 |
Форумчанин
Регистрация: 16.03.2013
Сообщений: 599
|
Нет тупой я вас не обзывал. Просто индексация должна начинаться с 0, но некоторые начинают с 1, что неверно, а точнее вызывает проблемы, когда начинаешь с этими массивами работать. И я реально не умею работать с БД, что умеете вы.
alextrof94$gmail.com
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Тесты по С++ | Sergey240892 | Помощь студентам | 4 | 08.06.2011 10:00 |
Тесты в delphi | Solana | Общие вопросы Delphi | 4 | 07.10.2010 21:35 |
тесты | odler | Помощь студентам | 0 | 13.05.2010 17:44 |
тесты | Majority | Помощь студентам | 1 | 11.11.2008 23:49 |