Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 последовательно находишь нужные тебе варианты ответов и пихаешь их в лебел.

---

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

Topepo ©   (05.11.04 10:41) [2]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.04 c