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

[dimi_87]

Вообщем есть исходник теста, я его уже подредактировал, только поверхностно. осталось пару штрихов и все. но штрихи эти я сам не осилю. поэтому и прошу помоши у форумчан.
Тест выкладываю архивом.

смысл теста: есть 100(к примеру) вопросов которые записаны в файле(в данном случае файле баз данных). Следом за вопросом зписаны и варианты ответов. А затем цифра правильного ответа.
Фрагмент этого файла:
"Вопр_ОЭ/1 Какая сталь обыкновенного качества относится к кипящей?
1. Сталь не полностью раскисленная марганцем при выплавке, и содержащая не более 0,05% кремния.
2. Содержащая кремния от 0,05 до 0,17%.
3. Содержащая более 10 мл. водорода на 100 г. металла.
end of question
1
end"
и так далее. Сам тест считывает из этого файла в случайном порядке 20 вопросов. В конце выводится результат : "Вы набрали 20 балов из 20" и этот результат записывается в файл. Сейчас внимание!!кульминация!!)
Нужно чтоб этот результат выводился не просто как сколько правильных ответов, а по следующей схеме: номер Вопроса - верно или не верно, и написан общий процент правильных ответов.
Очень Нужно!!! Помогите!! Если сделаете все красиво финансово отблагадорю.

[Карась]

В тот момент когда определил правильно или нет ответил пользователь просто сохраняешь результат в фаил..... И так все 20 вопросов в один фаил.
Для процентов создашь ещё одну переменую где будет храниться кол-во правильных ответов...
в конце читаешь из фаёла и дописыаешь проценты которые считаешь по пропорции.....

[dimi_87]

спасибо!! попробую....но это реально сложно для меня...

[Карась]

В этом коде чтото понять нереально.... Там так всё навороченно что я только по брекпоинтам отыскал где надо ставить счётчик и в какой месейдж вешать результат..

Что конкретно непонятно?

Проценты:
Надо подсчитать сколько было правильных ответов.
Процент правильных ответов вычисляется по формуле:
<кол-во правильных ответов> / <всего вопросов> * 100

Можно вывести так: FloatToStr(Verno/20 * 100) + ('%')
Где Verno : Real;

Работу с файлом я и сам не осилю при таком оформлении и запутавания кода....

[Serge_Bliznykov]

dimi_87,
у Вас есть массив form1.otvety_na_voprosy - в нём хранится правильно ответили или нет на вопрос.
т.е. Вам нужно сделать приблизительно так:

  for i:=1 to voprosov_v_teste do
    if form1.otvety_na_voprosy[i] then На вопрос i-й ответили верно
   else На вопрос i-й ответили неверно

Только реши, куда выводить результаты прохождения тестов (и напиши нормальный код на ветках then / else...)
я бы рекомендовал создать ещё одну форму, кинуть на неё хотя бы тот же Memo и заполнять его.
а в
if tek_vopros=voprosov_v_teste+1 then
begin
// выводить результаты по всем тестам...