Психологический тест

[_FENDER_]

Вообщем пишу программу для тестирования..суть такая..в Label - вопрос...RadioButton1,2,3,.., - варианты ответов. Подскажите как сделать чтобы при каждом нажатии кнопки Button1 выводились новые вопросы и вариантов ответа..будет где то вопросов 20..как именно вывести вопрос я то знаю..как сделать чтобы при каждом нажатии кнопки выполнялись разные команды..

[jihot]

я раньше делал через переменную, например:

var 
i : integer;
begin
if i = 0 then begin
{ выставили вопрос и варианты ответов, после чего , i:=i+1; exit; end;}
if i = 1 then begin
{след. вопросы и так далее} exit; end;

только при создании формы соответственно задать переменной i значение 0

[_FENDER_]

спасибо..так и сделаю

[MyLastHit]

_FENDER_, писал когда-то систему тестирования для экономистов. С оформлением, функционалом, возможностью выбора количества вопросов, либо рандомного варианта, таймером и тд. Если нужно могу скинуть с исходниками в личку.

[_FENDER_]

нет я немного другое сейчас делаю..более примитивное..слушай..я вот описал код все должно работать...только при нажатии кнопки он перескакивает через все вопросы на самый последний..оО..может я не там присвоил i:=0 ..обьясни где это сделать

[jihot]

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

нет я немного другое сейчас делаю..более примитивное..слушай..я вот описал код все должно работать...только при нажатии кнопки он перескакивает через все вопросы на самый последний..оО..может я не там присвоил i:=0 ..обьясни где это сделать

ты скорее всего не поставил 'exit' в конце. я исправил тот свой пост

procedure TForm1.FormCreate(Sender: TObject);
begin
i := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if i = 0 then begin
Label1.Caption := 'Первый вопрос'; i:=i+1; exit; end;
if i = 1 then begin
Label1.Caption := 'Второй вопрос'; i:=i+1; exit; end;
if i = 2 ...
end;

[_FENDER_]

спасибо..работает отлично

[ArtGrek]

люди! вы что! есть же CASE как никак

case Number of
 1: begin .. end;
 2: begin .. end;
...
 N: begin .. end;
 else begin .. end;
end;

а если сюда ini фаил прикрутить вообше здорово получица,
меняеш текстовыи документ, и меняюца и вопросы и ответы
ini

[Vopros1]
vopros=xxxxxx?
1=xxx
2=xxx
3=xxx

[MyLastHit]

а если сюда ini фаил прикрутить вообше здорово получица,
меняеш текстовыи документ, и меняюца и вопросы и ответы

И любой ультрахакер откроет этот файл и посмотрит, что в нем)

[Serge_Bliznykov]

И любой ультрахакер откроет этот файл и посмотрит, что в нем)

дык шифруйте его!

p.s. на форуме эти темы (как создавать тесты, где хранить вопросы, как шифровать файл с вопросами) поднимались и решались неоднократно!