Попал в тупик при создании теста

[dimitriy1987]

Спасибо. все сделал теперь подскажите как сделать что бы результат записывался в *тхт.?

[Alex21]

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

Спасибо. все сделал теперь подскажите как сделать что бы результат записывался в *тхт.?

Что именно хотим видеть в сохранении?

[dimitriy1987]

а сохранении надо видеть имя! это я сделал.
а вот результатов у мня 7штук! я пишу сохранить result в log.txt а он мне сохраняет только один результат! (DecodeDate(Now, AYear, AMonth, ADay);
DecodeTime(Now, Hour, Min, Sec, MSec);
Data:=IntToStr(AYear)+'/'+IntToStr(AMonth)+'/'+IntToStr(ADay)+' '+IntToStr(Hour)+':'+IntToStr(Min)+ ':'+IntToStr(Se c)+' ';
writeln(Log_File, Data+Result+#13#10+#13#10);
closeFile(Log_File)


срочно! помогите исправить анкету! немогу создать открытый вопрос в анкете! мне надо создать 3 открытых вопроса: Как завут,род занятий,возраст! кто поможет?

[dimitriy1987]

как результат вывести разобрася! помогите создать открытые вопросы в анкете. сам немогу. вот анкета:

помогите открытый вопрос создать что бы он тоже сохранялся вместе с простыми вопросами! анкета в предыдущем сообщении. хэлп...

открытый вопрос это когда сам пишешь ответ а не выбираешь из списка

//Есть кнопка "РЕДАКТИРОВАТЬ". SupVis

[Alex21]

Вот, написал тебе программку.
Но только под конец вспомнил про всякого рода "с 7 перейти на 10"... исправлять не стал...
Т.е. вопросы предлагаются по порядку.
В остальном прога аналогична твоему вложению + добавил Регистрацию Тестируемого (видимо это - открытый вопрос), и Помощь сделал в виде HTML.
Полностью рабочая. Если надо - доработай под свои нужды.

[dimitriy1987]

Алекс агромное спасибище тебе! помоги еще пожалуста что бы анкета не перезаписывалась а продолжалась с каждым новым пользователем. плиз.

а как 7-го на 10 перескочить так и не смог. написал в вопросах так: если вы ответили Нет то в 8 и 9 вросе выберите прочерк. на больше нехватило

//Дубль два

[Alex21]

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

Алекс агромное спасибище тебе! помоги еще пожалуста что бы анкета не перезаписывалась а продолжалась с каждым новым пользователем. плиз.

Самое лучшее, это сделать на каждого пользователя по файлу. И обзывать их например Имя+возраст.htm .
А то представьте 100 человек ответят и что получится из файла - как в нем что-то найти???

а как 7-го на 10 перескочить так и не смог. написал в вопросах так: если вы ответили Нет то в 8 и 9 вросе выберите прочерк

С ходу могу предложить следущее:
в процедуре нажатия кнопки ответа

procedure TForm1.s1Click(Sender: TObject);

вводим if или case и обрабатываем 7й вопрос. Если Да, то в списки qlist и alist дописываем прочерки (для 3х позиций).
Если не разберешся, вечером переточу код.

[dimitriy1987]

переделай свою анкету пожалуйста. непонял как с 7го на 10 перепрыгнуть. (условия такие: при выборе ответа а) или б) перепрыгиваем на 10 вопрос, а если вариант с) то продалжается 7.8.9.10 и т.д.

ты мне так помог много. напиши может какнить расчитаюсь с тобой?

[Alex21]

++ При ответе на вопрос 7, если выбран а) или б) то
следущий вопрос будет - 10й, иначе по порядку.
++ Если 8,9 вопросы пропущены, то в файл сохранений
они и не попадают (никаких прочерков).
++ Сделано отдельное сохранение для каждого тестируемого.
++ Исправлен небольшой косячок (если во время теста
нажать кнопку помощи, то после ее закрытия вываливалось
окно регистации).

[dimitriy1987]

Огромное спасибо! обязательно если судьба занесет в Белгород проставлюсь