Как посчитать кол-во ошибок в тесте

[ferrum88]

Доброго всем здравия!!!перед мной встала такая проблема: имеется программка-тест состоящая из 12-ти форм,какждая форма это отдельный вопрос, как сделать что бы в конце тестирования на на 13-ой форме выдавалась оценка или хотя бы кол-во ошибок?????прошу вашей помощи!!!!!!

[Ghost of Night]

Создать отдельный Юнит с переменной и подключить его ко всем формам. В эту переменную записывать ошибки.
А на 13 форме выводить эту переменную

[Sm1Le]

запись в файл.
Много вариантов, зависит от того как ты все эти формы создаешь.

[ferrum88]

у меня там все посто!!!нажимаешь ответить открывается следующая форма(следующий вопрос)!!!
Ghost of Night А можно малость поподробнее про отдельный юнит с переменной и как подключить его ко всем формам???за ранее благодарен))

Sm1Le а можете один из вариантов подробнее рассказать??

[Ghost of Night]

Создаешь пустой Юнит. В Разделе VAR объявляешь необходимые переменные. Сохраняешь в папке с проектом.
В каждой форме в разделе USES добавляешь имя этого Юнита.
И спокойно юзаешь переменную.

[ferrum88]

я создал пустой юнит там нет раздела VAR
вот что есть:
unit unit13;

interface

implementation

end.

[Stilet]

оценка или хотя бы кол-во ошибок?

Синтаксических ошибок языка???
Тебе нужно лексический анализатор для Делфи писать?
Эта работа может потянуть даже на диплом, тут за 5 минут не обьяснишь.

[Serge_Bliznykov]

Сообщение от Stilet

Синтаксических ошибок языка???
Тебе нужно лексический анализатор для Делфи писать?

Ну что, Вы, Виталий, какой там анализатор!
У него тест (ответы на заданные вопросы. Для каждого вопроса нарисована СВОЯ отдельная форма. В конце надо выдать результат - сколько опрашиваемый ответил правильно и сколько ошибок.

ferrum88, Вы абсолютно зря наплодили столько форм. Надо было всё на одной делать. (ибо и проще и универсальнее). Подумайте, как и сколько Вам прийдётся переделывать, если вопросов будет 50...

Сообщение от ferrum88

я создал пустой юнит там нет раздела VAR

ну так напишете его. РУЧКАМИ:

unit unit13;

interface
var
   KolGood : integer;

implementation

end.

[ferrum88]

я вот малость недопонимаю как юнит без формы ошыбки считать будет и куда он их выводить будет????
Serge_Bliznykov спасибо вам за добрый совет!!!
я уже скоро отчаюсь и брошу это дело(((((((((((((((((((((((((((((

[ferrum88]

а можно сделать так???:
в каждой форме есть у меня компонент LABEL в котором при нажатии на кнопку ОТВЕТИТЬ появляется сообщение мол ВЕРНО ответил или нет!!можно сделеть так что бы вместо надписи при неправильном ответе писалась цыфра 1,компонент сделать невидимым,а вот потом уже на 13-ой форме при нажатии на кнопочку (например ПОКАЗАТЬ РЕЗУЛЬТАТ),все эти еденички суммировались и показывалась число равное количеству неправильных ответов???