тест в делфи

[Гурам]

Здраствуйте. У меня задание сделать тест в делфи. Каждый вопрос должен быть на отдельной форме, но надо что б формы, по ходу прохождения теста, открывались в произвольном порядке а не в определенной последовательности. Как такое сделать?

[W0LF]

Например так:

var
  FormCount: integer;
// глобальная переменная, находиться на главной форме

begin
Randomize;
Random(FormCount);
case FormCount of
 2: Form2.Show;
 3: Form3. Show;
 4: Form4. Show;
{и т.д.}
end;

P.S.: А вообще луче задать одну форму и передавать туда ваш вопрос и вариант ответа...

[Гурам]

Огромное спасибо.

[Sibedir]

Кстати, если при написании программы столкнетесь с проблемой повторного появления форм, вот примерчик:
Поочередно случайно.zip
Это принципиальное решение. При желании можно оптимизировать.

[[artur666]]

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

[Sibedir]

Новый вопрос - новая тема. Это раз.

как сделать рандомное появление вопросов и ответов????

Зачем нужно рандомное появление ответов?

Ну и в третьих, по существу. Возмите мой пример, и на каждой из появляющихся форм напишите вопрос. В самом модуле формы храните и ответ.
В примере показано принципиальное решение рендомного появления чего угодно. Не важно, что будет являтся элементов массива. Это может быть

array of Integer
array of TQuestion
array of String
array of TFuncQuestion

В любом случае, произведя операцию подобную описаной в примере, вы получите обращение к элементам массива в случайном порядке.

Остальной инфы по тестам в инете наволом. Искать, например: исходник теста на delphi.

[Гурам]

Sibedir огромное спасибо