Ошибка при выходе из программы и неправильно происходит процедура

@walfter · Регистрация: 08.04.2012

Author24 — интернет-сервис помощи студентам

Вылетает ошибка после выполнения процедуры
при условии что функция ThisTest:boolean возвращает флаг в True

Ошибка при выходе из программы и неправильно происходит процедура

Во вложениях окно Debugger'a(Или как он правильно называется...)
а при False

Delphi

1	OrderTest:TStringList

Заполнен он подобно:

Delphi

1 2	For i:=1 to 10 do OrderTest.Add(IntToStr(i));

После чего все эти 10 записей перемешаны.
В общем когда флаг в False
То

Delphi

1
2
3

TestNow:=StrToInt(OrderTest[0]);
OrderTest.Delete(0);
ShowMessage(IntToStr(TestNow));

(Эта часть кода служит для отладки)
Возвращает не 10 разных цифр а всего 9
Собственно сама процедура:

Delphi

procedure TForm2.sButton1Click(Sender: TObject);
var
  mark:string;
begin
  if ThisTest then
    begin
      if sRadioGroup1.ItemIndex > -1 then
      if sRadioGroup1.Items[sRadioGroup1.ItemIndex]=GetRigthAnswer(sRadioGroup1.Caption, DataModule3.ADOOperation) then
        inc(rigthanswers);
      if (OrderTest.Count-1)>0 then
        begin
          sPanel2.Visible:=false;
          TestNow:=StrToInt(OrderTest[0]);
          OrderTest.Delete(0);
          CreateTest(TestNow, sRadioGroup1, DataModule3.ADOOperation);
          sButton1.Caption:='Ответить';
        end
      else
        begin
          sRadioGroup1.Caption:='Тестирование завершено';
          sPanel2.Visible:=true;
          mark:=CalcMark(rigthanswers, GetMaxQusetID(DataModule3.ADOOperation, ThemeName), sGauge1);
          sLabel1.Caption:='Тестирование окончено!'+#13#10+
          'Вы прошли тестирование'+#13#10+
          'Ваша оценка: '+mark+#13#10+
          'Эта оценка пойдёт в'+#13#10+
          'ваш профиль.';
        end;
    end
  else
    begin
      if LowerCase(sEdit1.Text)=LowerCase(GetRigthAnswer(sEdit1.Text, DataModule3.ADOOperation2)) then
        inc(rigthanswers);
      if (OrderTest.Count-1)>0 then
        begin
          sPanel2.Visible:=false;
          TestNow:=StrToInt(OrderTest[0]);
          OrderTest.Delete(0);
          ShowMessage(IntToStr(TestNow));
          CreatePR(TestNow, sLabel3, DataModule3.ADOOperation2, ThemeName);
          sButton1.Caption:='Ответить';
        end
      else
        begin
          sPanel3.Visible:=false;
          sPanel2.Visible:=true;
          mark:=CalcMark(rigthanswers, GetMaxQusetID(DataModule3.ADOOperation2, ThemeName), sGauge1);
          sLabel1.Caption:='Тестирование окончено!'+#13#10+
          'Вы прошли тестирование'+#13#10+
          'Ваша оценка: '+mark+#13#10+
          'Эта оценка пойдёт в'+#13#10+
          'ваш профиль.';
        end;
    end;
end;

@walfter · 07.05.2014, 19:51 **[ТС]**

Одну проблему решил...
Изменил условие...
Что то не додумал чуток что нужно ещё думать что он может быть равен 0 до выхода из верного условия в условие else
Заменил
if (OrderTest.Count-1)>0 then
На
if (OrderTest.Count-1)>=0 then

Добавлено через 14 часов 6 минут
Ошибку решил... Оказывается при создание теста(CreateTest) я оставляя комментарии в коде случайно закомментировал строчку кода которая высвобождает переменную для перемешивания элементов в RadioGroup.

@walfter 14 / 14 / 13 Регистрация: 08.04.2012 Сообщений: 113
	07.05.2014, 19:51 [ТС]	2
	Одну проблему решил... Изменил условие... Что то не додумал чуток что нужно ещё думать что он может быть равен 0 до выхода из верного условия в условие else Заменил if (OrderTest.Count-1)>0 then На if (OrderTest.Count-1)>=0 then Добавлено через 14 часов 6 минут Ошибку решил... Оказывается при создание теста(CreateTest) я оставляя комментарии в коде случайно закомментировал строчку кода которая высвобождает переменную для перемешивания элементов в RadioGroup. 0