Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.46 MB
Время: 0.04 c
1-1099993977
Andry
2004-11-09 12:52
2004.11.21
Сколько страниц напечатал принтер


3-1098281516
lehich
2004-10-20 18:11
2004.11.21
xmlmapper


4-1097252970
ser_ega
2004-10-08 20:29
2004.11.21
Сканирование!


3-1098706766
TohaNik
2004-10-25 16:19
2004.11.21
Изменение кол-ва входящих параметров в SP


14-1099638640
anonim
2004-11-05 10:10
2004.11.21
Как крякнуть кряк?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский