Тест Delphi

[Stilet]

Показывай код )

[manchester_alan]

Сообщение от Stilet

Показывай код )

procedure TForm1.Button2Click(Sender: TObject);
begin
  Inc(QuestionNum);
  inc(question);
  lbl1.Visible:=true;
  Button2.Caption:='Äàëåå';
  GroupBox1.Color:=clYellow;

   case question of
   1:GroupBox1.Caption:='Âîïðîñ ¹1';
   2:GroupBox1.Caption:='Âîïðîñ ¹2';
   3:GroupBox1.Caption:='Âîïðîñ ¹3';
   4:GroupBox1.Caption:='Âîïðîñ ¹4';
   5:GroupBox1.Caption:='Âîïðîñ ¹5';
   6:GroupBox1.Caption:='Âîïðîñ ¹6';
   7:GroupBox1.Caption:='Âîïðîñ ¹7';
   8:GroupBox1.Caption:='Âîïðîñ ¹8';
   9:GroupBox1.Caption:='Âîïðîñ ¹9';
   10:GroupBox1.Caption:='Âîïðîñ ¹10';
   end;


   QuestionNum:=Random(diff.Count);
   RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
   memo1.Lines.Clear;
   memo1.Lines.Add(quest.ReadString(diff[QuestionNum],'quest',''));
     otvetstr:=(quest.ReadString(diff[QuestionNum],'otvet',''));
     RadioButton1.Caption:=quest.ReadString(diff[QuestionNum],'otvet','');
     RadioButton2.Caption:=quest.ReadString(diff[QuestionNum],'var1','');
     RadioButton3.Caption:=quest.ReadString(diff[QuestionNum],'var2','');
   diff.Delete(QuestionNum); 
end;
procedure TForm1.FormShow(Sender: TObject);
begin
QuestionNum := 0;
question:=0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   GroupBox1.Caption:='Âîïðîñ';
     RadioButton1.Caption:='Âàðèàíò îòâåòà';
     RadioButton2.Caption:='Âàðèàíò îòâåòà';
     RadioButton3.Caption:='Âàðèàíò îòâåòà';
   k:=0;
   Button2.Caption:='Íà÷àòü òåñò';
   lbl1.Visible:=False;
     diff:=TStringList.Create;
   quest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'âîïðîñû îòâåòû.ini');
   quest.ReadSections(diff);
end;

procedure TForm1.Button3Click(Sender: TObject);
var rez:TModalResult;
begin
 rez:=MessageDlg('Âûõîä :(' +#13+ 'Âû óâåðåíû?',mtWarning,[mbYes,mbNo],0);
 if rez=mryes then close;
end;

[Stilet]

Inc(QuestionNum);

Это выкинь.

case question of

Это тоже.
Напиши лучше так:

QuestionNum:=Random(diff.Count);
   RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
GroupBox1.Caption:='Вопрос№ '+IntToStr(question);
...

А так вроде криминала не вижу...

[manchester_alan]

Сообщение от Stilet

Это выкинь.

Это тоже.
Напиши лучше так:

QuestionNum:=Random(diff.Count);
   RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
GroupBox1.Caption:='Вопрос№ '+IntToStr(question);
...

А так вроде криминала не вижу...

да изменил)) но все равно 1 и тот же вариант все время... а нельзя еще чтобы и варианты ответов тоже наугад выводились..?

в общем как сделать чтобы варианты ответов выводились наугад тоже?... Вопросы заново выводятся и тест заново начинается, это получилось...

Помогите пожалуйста с этим..

[Stilet]

нельзя еще чтобы и варианты ответов тоже наугад выводились..?

Я чет не понимаю как можно ответы наугад выводить
Почему не по порядку, как они в файле? Смысл?

[manchester_alan]

Сообщение от Stilet

Я чет не понимаю как можно ответы наугад выводить
Почему не по порядку, как они в файле? Смысл?

Ну в смысле чтоб тест не однообразен был... тогда получается правильные ответы будут только на radiobutton2 например... Ну вот я и спрашиваю, можно ли сделать, чтобы варианты ответов выдавались на разных radiobutton'ах...

[Stilet]

А что за проблема перемешать их в файле?
И я бы вообще бы заменил твои радиобатоны на CheckListBox. Который позволит ввести тест с несколькими правильными вариантами. И после подгрузки этот чеклист можно перемешать в цикле конкретно так. Делается это довольно просто:

With CheckListBox.Items do for i:=0 to Count-1 do Exchange(Random(Count),Random(Count));

И порядок.

[manchester_alan]

Спасибо))))))

[Stilet]

А у тебя нет желания просто сесть и почитать литературу про ИНИ файлы?
Я выше дал пример с ReadSections. Есть еще функция ReadSectionValues, которая считает все что есть в определенной секции.

Читаем весь список вопросов-ответов
 ...ReadSectionValues(diff[QuestionNum],stlist)
Вносим их в избирательный бюллетень 
for i:=0 to stlist.Count-1 do
Если конечно имя параметра в списке не otvet
Добавляем его в бюллетень в случайное место
  if stlist.names[i]<>'otvet' then 
   CheckListBox1.Items.insert(random(CheckListBox1.Items.count),
      stlist.ValueFromIndex[i])

Где stlist:TStringList;

Читай же хелп. Там даже примеры есть. Чего стесняться?

[manchester_alan]

да уже сделал, потом убрал свой вопрос... все равно спасибо)