[cyber922]

Доброго времени суток, мне нужная вот такая помощь: есть программа, в которой нужно, чтобы с каждым новым вопросом работал щетчик... в стастиктекст, нужно чтобы выводилось номер вопроса (1/60,2/60 и т.д...) и передвигался ползунок progressbar'a, то есть отображал процесс прохождения теста.. ещё в этой программе вылетает ошибка, когда закрываешь не основную форму, а регистрационную.
Помогите исправить эти косяки)

p.p.s.Вопросы для теста и сама программа, в архиве

[angvelem]

Ужас, ответ = if vextr>10 then Vextravert:=. После равно подставишь ответ из своей программы.

[DelphiM0ZG]

Там на кнопке "Далее" нужно добавить код:

Код:

  STQutest.Caption:=IntToStr(i+1) + '/' + IntToStr(QList.Count);
  TrackBar1.Position:=TrackBar1.Position+1;

А на кнопку "Начать" тест, нужно дописать код:

Код:

  STQutest.Caption:=IntToStr(1) + '/' + IntToStr(QList.Count);
  TrackBar1.Position:=0;

[cyber922]

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

Там на кнопке "Далее" нужно добавить код:

Код:

  STQutest.Caption:=IntToStr(i+1) + '/' + IntToStr(QList.Count);
  TrackBar1.Position:=TrackBar1.Position+1;

А на кнопку "Начать" тест, нужно дописать код:

Код:

  STQutest.Caption:=IntToStr(1) + '/' + IntToStr(QList.Count);
  TrackBar1.Position:=0;

Cпасибо, я уже справился с задачей))