Тест Delphi

[manchester_alan]

Сделал тест на Delphi, но все делается только лишь однообразно 10 вопросов и по порядку каждый раз... А как мне сделать, чтобы эти вопросы наугад выводились, да и варианты ответов чтоб наугад выводились..? Помогите пожалуйста

procedure TForm1.Button2Click(Sender: TObject);
begin
  Inc(QuestionNum);
  Button2.Caption:='Далее';
  case QuestionNum of
   1:
   begin
     k:=0;
     RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
     GroupBox1.Caption:='Вопрос №1';
   if GroupBox1.Caption='Вопрос №1' then
   begin
     memo1.Text:='Как называтся икона (1411 или 1427), которую написал Андрей Рублев?';
     RadioButton1.Caption:='Четверка';
     RadioButton2.Caption:='Тройца';
     RadioButton3.Caption:='Двойка';
   end;
   end;
   2:
   begin
   RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
   GroupBox1.Caption:='Вопрос №2';
    if GroupBox1.Caption='Вопрос №2' then
   begin
     memo1.Text:='Rартина Сандро Боттичелли (1486) называется:';
     RadioButton1.Caption:='Рождение Венера';
     RadioButton2.Caption:='Жизнь Юпитера';
     RadioButton3.Caption:='Смерть Плутона';
   end;
  end;
   3:
   begin
      RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
   GroupBox1.Caption:='Вопрос №3';
    if GroupBox1.Caption='Вопрос №3' then
   begin
     memo1.Text:='Картина Ивана Крамского (1883) называется:';
     RadioButton1.Caption:='Знаменитая';
     RadioButton2.Caption:='Потерянная';
     RadioButton3.Caption:='Неизвестная';
   end;
  end;
  4:
  begin
     RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
    GroupBox1.Caption:='Вопрос №4';
    if GroupBox1.Caption='Вопрос №4' then
   begin
     memo1.Text:='Карл Брюллов является автором картины (1833):';
     RadioButton1.Caption:='Первый день Рима';
     RadioButton2.Caption:='Последний день Помпеи';
     RadioButton3.Caption:='Месяц в Египте';
   end;
  end;
  5:
  begin
     RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
   GroupBox1.Caption:='Вопрос №5';
    if GroupBox1.Caption='Вопрос №5' then
   begin
     memo1.Text:='Картина Виктора Васнецова (1898) называется:';
     RadioButton1.Caption:='Богатыри';
     RadioButton2.Caption:='Рыцари';
     RadioButton3.Caption:='Хищники';
   end;
  end;
  6:
  begin
     RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
   GroupBox1.Caption:='Вопрос №6';
    if GroupBox1.Caption='Вопрос №6' then
   begin
     memo1.Text:='Какую картину (1893) написал Эдвард Мунк?';
     RadioButton1.Caption:='Бормотание';
     RadioButton2.Caption:='Шепот';
     RadioButton3.Caption:='Крик';
   end;
  end;
  7:
  begin
     RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
   GroupBox1.Caption:='Вопрос №7';
    if GroupBox1.Caption='Вопрос №7' then
   begin
     memo1.Text:='Какую картину (1899) написал Клод Моне?';
     RadioButton1.Caption:='Пруд с лилиями';
     RadioButton2.Caption:='Озеро с розами';
     RadioButton3.Caption:='Океан с тюльпанами';
   end;
  end;
  8:
  begin
     RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
   GroupBox1.Caption:='Вопрос №8';
    if GroupBox1.Caption='Вопрос №8' then
   begin
     memo1.Text:='Пабло Пикассо является автором этой картины (1937) :';
     RadioButton1.Caption:='Сарагоса';
     RadioButton2.Caption:='Герника';
     RadioButton3.Caption:='Гранада';
   end;
  end;
  9:
  begin
     RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
   GroupBox1.Caption:='Вопрос №9';
    if GroupBox1.Caption='Вопрос №9' then
   begin
     memo1.Text:='Картину под каким названием (1889) написал Винсент Ван Гог?';
     RadioButton1.Caption:='Звездная ночь';
     RadioButton2.Caption:='Облачное утро';
     RadioButton3.Caption:='Дождливый вечер';
   end;
  end;
  10:
  begin
     RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
   GroupBox1.Caption:='Вопрос №10';
    if GroupBox1.Caption='Вопрос №10' then
   begin
     memo1.Text:='Какую картину написал Казимир Малевич?';
     RadioButton1.Caption:='Красный шестиугольник';
     RadioButton2.Caption:='Оранжевый треугольник';
     RadioButton3.Caption:='Чёрный квадрат';
     Button2.Caption:='Конец теста';
   end;
  end;
  11:
  begin
     Button2.Caption:='Конец теста';
     RadioButton1.Checked:=False; RadioButton2.Checked:=False; RadioButton3.Checked:=False;
     MessageDlg('Количество правильных ответов:  '+inttostr(k),mtInformation,[mbOK],0);
      Button2.Caption:='Начать тест';
     if Button2.Caption='Начать тест' then begin QuestionNum := 0; end;
  end;
end;
end;
end;

[Stilet]

С базами данных работать умеешь?
Если да - запихни вопросы и ответы в базу, и выводи из нее на форму.

[manchester_alan]

С базами данных работать умеешь?
Если да - запихни вопросы и ответы в базу, и выводи из нее на форму.

это в смысле BD Access? Ну мне лучше через обычный txt файл, там вопросы и ответы записаны и оттуда брать наугад..

[Должно быть имя?]

Тогда используй ini
К примеру

[Вопрос №10]
Text = 'Какую картину написал Казимир Малевич?';
Caption1 = 'Красный шестиугольник';
Caption2 = 'Оранжевый треугольник';
Caption3 = 'Чёрный квадрат';
right = 1; - А тут к примеру индекс правильного ответа

[manchester_alan]

[Вопрос №10]
Text = 'Какую картину написал Казимир Малевич?';
Caption1 = 'Красный шестиугольник';
Caption2 = 'Оранжевый треугольник';
Caption3 = 'Чёрный квадрат';
right = 1; - А тут к примеру индекс правильного ответа

аа то есть это через тип запись??

А как реализовать наугад подскажите пожалуйста..

[Аватар]

Закачай вопросы в StringList. Потом используя Random для индекса строки дергай вопросы из него. Случайные ответы - это как? Философ, что ли, ответы на все случаи?

[manchester_alan]

Сообщение от Аватар

Закачай вопросы в StringList. Потом используя Random для индекса строки дергай вопросы из него. Случайные ответы - это как? Философ, что ли, ответы на все случаи?

ну в смысле чтоб варианты ответов тоже наугад высвечивались

[manchester_alan]

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

[FaTaL]

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

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

Используй TIniFile;

[uberchel]

Используй простой текстовик и сделай разделитель допустим ::: , далее вырезаешь все это дело через pos/posex/delete/copy