Тест Delphi

[Stilet]

через файл ini как реализовать?

Рекомендую:
http://yandex.ua/yandsearch?text=INI...2015&numdoc=50

[manchester_alan]

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

Рекомендую:
http://yandex.ua/yandsearch?text=INI...2015&numdoc=50

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

[Stilet]

А как ты в ИНИ их оформил и как считываешь?

[manchester_alan]

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

А как ты в ИНИ их оформил и как считываешь?

Вот к примеру то что в Ini
[quest1]
quest=Как называтся икона (1411 или 1427), которую написал Андрей Рублев?
var1=Четверка
otvet=Тройца
var2=Двойка
[quest2]
quest=Картина Сандро Боттичелли (1486) называется:
otvet=Рождение Венеры
var1=Жизнь Юпитера
var2=Смерть Плутона

А вот как в delphi

case QuestionNum of
   1:
   begin
     k:=0;
     RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
     quest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'вопросы ответы.ini');
     memo1.Lines.Add(quest.ReadString('quest'+inttostr(QuestionNum),'quest',''));
     otvetstr:=(quest.ReadString('quest'+inttostr(QuestionNum),'otvet',''));
     RadioButton1.Caption:=quest.ReadString('quest'+inttostr(QuestionNum),'var1','');
     RadioButton2.Caption:=quest.ReadString('quest'+inttostr(QuestionNum),'otvet','');
     RadioButton3.Caption:=quest.ReadString('quest'+inttostr(QuestionNum),'var2','');
   end;
   2:
   begin
   RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
     memo1.Lines.Clear;
     quest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'вопросы ответы.ini');
     memo1.Lines.Add(quest.ReadString('quest'+inttostr(QuestionNum),'quest',''));
     otvetstr:=(quest.ReadString('quest'+inttostr(QuestionNum),'otvet',''));
     RadioButton1.Caption:=quest.ReadString('quest'+inttostr(QuestionNum),'otvet','');
     RadioButton2.Caption:=quest.ReadString('quest'+inttostr(QuestionNum),'var1','');
     RadioButton3.Caption:=quest.ReadString('quest'+inttostr(QuestionNum),'var2','');
  end;

[Stilet]

Ага:

Hazuon:TStringList;
...
Hazuon:=TStringList.Create;
quest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'вопросы ответы.ini');
quest.ReadSections(Hazuon);
...
Цикл
   QuestionNum:=random(Hazuon.Count);
   RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
     memo1.Lines.Clear;
     
     memo1.Lines.Add(quest.ReadString(Hazuon[QuestionNum],'quest',''));
     otvetstr:=(quest.ReadString(Hazuon[QuestionNum],'otvet',''));
     RadioButton1.Caption:=quest.ReadString(Hazuon[QuestionNum],'otvet','');
     RadioButton2.Caption:=quest.ReadString(Hazuon[QuestionNum],'var1','');
     RadioButton3.Caption:=quest.ReadString(Hazuon[QuestionNum],'var2','');
Конец цикла

Hazuon.Free;
quest.Free;

А Case отсюда вообше убрать надо.

[manchester_alan]

а цикл в смысле for... ?

[Stilet]

Ну я же не знаю какой тебе нужно )
можешь поставить так:

while Hazuon.Count>0 do begin
...
 Hazuon.Delete(QuestionNum);
end;

Тогда будет вперемешку, без повторов и закончится, когда вопросы иссякнут.

[manchester_alan]

ой спасибо от души)) все работает!))) правда теперь он тоже 1 вариант все время прокручивает....в чем дело..? и как подсчитать количество правильных ответов??

[Stilet]

А ну да )
Тебе бы нужно прикрутить какую нить кнопку типа "Дальше", и в ней (выкинув теперь цикл) вставить код из него. Тогда тест покажется, юзер даст ответ, нажмет "Далее" и получит следующий вопрос.
Типа такого:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private   Hazuon:TStringList;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
     Hazuon:=TStringList.Create;
quest:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'вопросы ответы.ini');
quest.ReadSections(Hazuon);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
      QuestionNum:=random(Hazuon.Count);
   RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
     memo1.Lines.Clear;

     memo1.Lines.Add(quest.ReadString(Hazuon[QuestionNum],'quest',''));
     otvetstr:=(quest.ReadString(Hazuon[QuestionNum],'otvet',''));
     RadioButton1.Caption:=quest.ReadString(Hazuon[QuestionNum],'otvet','');
     RadioButton2.Caption:=quest.ReadString(Hazuon[QuestionNum],'var1','');
     RadioButton3.Caption:=quest.ReadString(Hazuon[QuestionNum],'var2','');
   Hazuon.Delete(QuestionNum);
end;

end.

а как подсчитать количество правильных ответов?

Заведи переменку глобальную и в нее плюсуй если ответ правильный.

[manchester_alan]

ну так это я и делал по кнопке далее) только вот теперь один случайный вариант выводит и все... а хотелось бы чтоб все время наугад..