Помогите с тестовой оболочкой, плииз!

← →
Topepo © (2004-11-05 10:34) [0]

Я пишу тестовую оболочку (ну типа оченивает уровень пользователя). она запрашивает вопрос и ждёт ответ в radiogroup. у меня есть два отдельных текстовых файла, один с вопросами и второй с ответами. Что я уже написал: программа считывает вопросы в невидимый мемо и задаёт их в label. потом она считывает ответы во второй мемо. структура файла ответов:
вариант1\вариант2\..\вариантN, №прав.ответа; {вопрос1} вариант1\вариант2\..\вариантN, №прав.ответа; {вопрос2} и т.д.
в мемо файл ответов делится на:
вариант1\вариант2\..\вариантN №прав.ответа;и так по всем вопросам. Я меня ведь в чём проблема? кнопка вывода на экран вопросов и ответов одна, а так как вопросов много то и код должен быть соответсвующим. вот мой код:
while not eof(o) do begin readln(o,otv); PravOtv:=Copy(Otv,Pos(",",Otv) + 1,Length(Otv)); otv:=Copy(otv,1,Pos(",",otv) - 1); memo2.lines.Add(otv); memo2.Lines.Add(PravOtv); end; Closefile(o); with memo2 do for i:=1 to memo2.Lines.count do begin if (length(memo2.Lines.Strings[i]))> 3 then begin RadioGroup1.Items.Text:=StringReplace(memo2.Lines.Strings[i],"\",#13#10,[rfReplaceAll]); end; end; end;
Вот в чём фишка: прога каждый раз выдаёт только варианты ответов от последнего вопроса.
Нажатий кнопок может быть много, и чтобы прога каждый раз не выводила первую (или, что ещё хуже, последнюю) строку, а дейтсвовала так:
нажали первый раз - первая строка вариантов,
нажали второй раз - вторая строка вариантов,
ну и так далее.
Помогите бедному чайнику, пожалйста!!

← →
КаПиБаРа © (2004-11-05 10:38) [1]

Попроси у родителей денег на книгу

← →
Topepo © (2004-11-05 10:41) [2]

блин. КаПиБаРа ©! знаешь сколько я этих книг прочитал?! ни в одной ничерта нету!!

← →
1008 © (2004-11-05 10:44) [3]

Topepo © (05.11.04 10:34)

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

По-моему всё же ошибка в логике работы.
Пожалуй надо найти ключевую строчку "{вопросN}" и из неё подставлять данные в радиогрупп.
Невидимый мемо вообще лишний.
Ты читаешь строку из файла в переменную и при помощи Pos, Delete, Copy, Cut последовательно находишь нужные тебе варианты ответов и пихаешь их в лебел.

Помогите с тестовой оболочкой, плииз! Найти похожие ветки