| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Topepo ©   (2004-11-05 10:34:00) 

Я пишу тестовую оболочку (ну типа оченивает уровень пользователя). она запрашивает вопрос и ждёт ответ в 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:52:00) [1]

Topepo ©   (05.11.04 10:41) [2]

Дык ты по Delphi книгу купи, там точно есть :)

---

1008   (2004-11-05 10:44:00) [2]

Topepo ©  (05.11.04 10:34)

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

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

---

Topepo   (2004-11-05 10:41:00) [3]

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

---

КаПиБаРа   (2004-11-05 10:38:00) [4]

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

---

Наверх