Тест (Делфи)

[grom333]

Доброго времени. У меня осталась последняя задача для ГОСов, в которой никак не могу разобраться, несмотря на ее легкое понимание многими.

Создать элементарную программу Файл тестовых заданий должен иметь текстовый формат без шифрования данных. Текс вопроса и варианты ответа могут занимать от одной и нескольких строк текста. Каждому вопросу соответствуют от 3 до 5 вариантов ответа. Результат необходимо выдать процентной форме и в виде оценки по следующим критериям: от 90 до 100% - оценка «5», от 75 до 90% - оценка «4», от 60 до 75% - оценка «3», меньше 60% - оценка «2»

Как организовать алгоритм, чтения из 1! текстового файла вытягивание вопроса одного за другим, обработка ответа и подсчет оценок? В принципе подсчет оценок догадываюсь как сделать.

[RUSt88]

нужно сделать разделение вопросов, ответов, и баллов за них
очень удобное разделение предоставляет формат xml, за день изучишь этот формат и все вопросы снимутся
можно попроще - воспользоваться тегами, как браузер
например так:
вопрос начинается с тега
<?>Где родился Пушкин А.С.<?>
ответы построить так
<=>Царицыно<=>
<=>Не знаю<=> и т.п.
а баллы за ответы построить в том же порядке, что и ответы
<!>4<!>
<!>2<!>

теперь конкретнее про считывание
читаем вопрос: ищем тег ? заключ в скобки <>, если нашли читаем в строку вопрос до тега <?>
читаем ответы: тут считаем кол-во ответов до тега баллов также как вопрос
ну и т.д.

надеюсь понятно объяснил )

[Егор527]

Да можно проще.
Формат файла делай такой(для удобства)
-вопрос
-ответ1
-ответ2
-ответ3
-2(номер правильного овтета)
Потом считываешь этот файл в скрытый листбкс(чтобы с чтением из файла не парится)А уже из листбокса можешь считывать построчно например в label(вопрос),а ответы в RadioGroup.
Вот как то так если делать по простому...
Если хочешь пиши сделаю.

[grom333]

Саму загрузку я сделал:

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Items.LoadFromFile('v\1.txt');
label1.Caption:=listbox1.Items.Strings[0];
radiogroup1.Items.Strings[0]:=listbox1.Items.Strings[1];
radiogroup1.Items.Strings[1]:=listbox1.Items.Strings[2];
radiogroup1.Items.Strings[2]:=listbox1.Items.Strings[3];
radiogroup1.Items.Strings[3]:=listbox1.Items.Strings[4];
end;

Но как делать обработку результатов. И загружать следующий вопрос.

[grom333]

Почитав на форуме одну из тем "Одиночества в сети", по применению 1 баттона к разным действиям. Сложил с переложением "Егор527".
Получилось все хорошо, только опять таки не могу выводить результаты. С присваиванием путаюсь:

procedure TForm1.Button2Click(Sender: TObject);
var p,s:integer;
begin
    s:=1;
button1.tag:=button1.tag+1;
     case button1.tag of
  1: begin  p:=0;
   if radiogroup1.ItemIndex=0 then   p:=p+s else p:=0; label2.Caption:=inttostr(p);
listbox1.Items.LoadFromFile('v\2.txt');
label1.Caption:=listbox1.Items.Strings[0];
radiogroup1.Items.Strings[0]:=listbox1.Items.Strings[1];
radiogroup1.Items.Strings[1]:=listbox1.Items.Strings[2];
radiogroup1.Items.Strings[2]:=listbox1.Items.Strings[3];
radiogroup1.Items.Strings[3]:=listbox1.Items.Strings[4];
   end;
  2:begin
     if radiogroup1.ItemIndex=1 then  p:=p+s  else p:=p; label2.Caption:=inttostr(p);
 button1.Tag:=0;end;




end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
listbox1.Items.LoadFromFile('v\1.txt');
label1.Caption:=listbox1.Items.Strings[0];
radiogroup1.Items.Strings[0]:=listbox1.Items.Strings[1];
radiogroup1.Items.Strings[1]:=listbox1.Items.Strings[2];
radiogroup1.Items.Strings[2]:=listbox1.Items.Strings[3];
radiogroup1.Items.Strings[3]:=listbox1.Items.Strings[4];
end;

end.

Получается 1 раз, если отвечают правильно, засчитывается 1 балл. когда на втором вопросе отвечают правильно или неправильно, получается ответ: 4369113 или 4369112. Помогите шаг и буфер организовать.