Кнопка "Назад" в тесте

[Maestro-]

Здравствуйте, нужна помощь в создании теста. Вернее сам тест почти готов, но нужно реализовать кнопку "Назад". Программа считывает сам тест из .txt файла. Заполнение текстом выглядит так:

AssignFile(F, 'test4.txt');
 Reset(F);
 while not Eof(F) do
 begin           i:=i+1;
 Readln(F, S);
 a[i]:=(S);
 end;
 CloseFile(F);
 label2.Caption:=a[j]; j:=j+1;
  button1.Caption:=a[j]; j:=j+1;
   button2.Caption:=a[j]; j:=j+1;
    button3.Caption:=a[j]; j:=j+1;
     button4.Caption:=a[j]; j:=j+2;

А при нажатии на вариант один (Button1) проверяется правильность.

procedure TForm2.Button1Click(Sender: TObject);
begin
o:=1;     t:=t+6;     sc:=sc+1;
 label2.Caption:=a[j]; j:=j+1;
  button1.Caption:=a[j]; j:=j+1;
   button2.Caption:=a[j]; j:=j+1;
    button3.Caption:=a[j]; j:=j+1;
     button4.Caption:=a[j]; j:=j+2;
     begin
if o=strtofloat(a[t]) then z:=z+1 else z:=z+0;  end;

o - ответ №1, т.е. вариант А. Если он равен элементу массива a[t] (в текстовом документе - каждая 6-я строка - число, равное правильному ответу), t - строка с правильным вариантом, sc - номер вопроса, z - количество правильных ответов.

Не получается сделать кнопку "Назад", при нажатии на которую тест возвращается на один вопрос назад.

З.Ы.: Не стал выкладывать полный код программы, т.к. он написан очень криво, так что нормальный человек быстро запутается.

[mihali4]

Если я правильно понял, то
sc:=sc-2;

[Maestro-]

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

Если я правильно понял, то
sc:=sc-2;

Нет, это я неправильно выразился. Переменная sc считает только количество вопросов, чтобы "знать", когда завершить тестирование. Т.е. если в тесте 25 вопросов, то будет

if sc=25 then showmessage('Тест закончен');

[mihali4]

И что?
У вас Button1Click - это переход к следующему вопросу, так?
Вы зачем-то сразу делаете sc:=sc+1, хотя резоннее делать это при нажатии на кнопку ответа.
Поэтому и sc:=sc-2;
Судя по всему, нужно еще добавить j:=j-12;

[Maestro-]

Button1Click - кнопка ответа с одновременным переходом к следующему вопросу.
Принцип таков: форма, на ней дан вопрос №1 и 4 кнопки, Caption которых равен варианту ответа. При нажатии на одну из кнопок происходит переход к следующему вопросу, приписывание +1 к пройденным вопросам и проверка на правильность выбранного варианта ответа (если правильно - z:=z+1, неправильно - z:=z+0).
А кнопка "Назад" должна вернуть нас на 1 вопрос назад (sc:=sc-1), поменять все Caption на предыдущие и проверить, если пользователь ответил правильно на этот вопрос - сделать z:=z-1, а если нет - z:=z+0;

[mihali4]

Ну вот вы сами алгоритм и описали...
И в чем вопрос?

[rockedit]

А зачем такая сложность с кнопками? компонент TRadioGroup не слыхали? рациональней всего сделать так:
Массив, в нем храните номер ответа выбраного пользователем,
в переменной какой нить хранить текуший шаг(текуший вопрос)
три конопки, вперед, назад и ответить. при помоши case отслеживаете какой шаг и что нужно вывести в caption компонента radioButton и еще отслеживаете не пришли ли вы к первому вопросы, чтоб сделать кнопку назад неактивной Enabe = false. как пришли к последенему вопросу делайте неактивной кнопку вперед. по нажатию на кнопку ответ делаете сравнение ответов массива с правильными. вот и вся математика, делаеться за час элементарно
C уважением Rockedit!

[Maestro-]

Ну вот вы сами алгоритм и описали...
И в чем вопрос?

Не получается реализовать.

А зачем такая сложность с кнопками? компонент TRadioGroup не слыхали? рациональней всего сделать так:
Массив, в нем храните номер ответа выбраного пользователем,
в переменной какой нить хранить текуший шаг(текуший вопрос)
три конопки, вперед, назад и ответить. при помоши case отслеживаете какой шаг и что нужно вывести в caption компонента radioButton и еще отслеживаете не пришли ли вы к первому вопросы, чтоб сделать кнопку назад неактивной Enabe = false. как пришли к последенему вопросу делайте неактивной кнопку вперед. по нажатию на кнопку ответ делаете сравнение ответов массива с правильными. вот и вся математика, делаеться за час элементарно
C уважением Rockedit!

Эту сложность с кнопками делал другой человек, моя задача дополнить имеющуюся программу. Возможно переделаю её как вы посоветовали.

Спасибо mihali4 и Rockedit.