Перестал работать тестер

[kanich]

Был тестер с 4 вариантами ответов, переделал его на 5 вариантный так же поступил и с редактором.
теперь тестер не работает.
вот коды программ:

***Редактор теста***
// Ввод данных вопроса в промежуточный объект
procedure TForm1.PrSaveMemo(Sender: TObject);
begin
  if Memo_Temp.Lines.Count=(2+7*(Nom_Question-1))then
    begin
      // Создание новых строчек в промежуточном объекте
      Memo_Temp.Lines.Add(encrypt(Edt_Question.Text,30000));
      Memo_Temp.Lines.Add(encrypt(Edt_V1.Text,30000));
      Memo_Temp.Lines.Add(encrypt(Edt_V2.Text,30000));
      Memo_Temp.Lines.Add(encrypt(Edt_V3.Text,30000));
      Memo_Temp.Lines.Add(encrypt(Edt_V4.Text,30000));
      Memo_Temp.Lines.Add(encrypt(Edt_V5.Text,30000));
      Memo_Temp.Lines.Add(encrypt(IntToStr(RG_CorrectQ.ItemIndex+1),30000));
    end
   else
    begin
      // Узменение уже существующих данных
      Memo_Temp.Lines[2+7*(Nom_Question-1)]:=encrypt((Edt_Question.Text),30000);
      Memo_Temp.Lines[3+7*(Nom_Question-1)]:=encrypt((Edt_V1.Text),30000);
      Memo_Temp.Lines[4+7*(Nom_Question-1)]:=encrypt((Edt_V2.Text),30000);
      Memo_Temp.Lines[5+7*(Nom_Question-1)]:=encrypt((Edt_V3.Text),30000);
      Memo_Temp.Lines[6+7*(Nom_Question-1)]:=encrypt((Edt_V4.Text),30000);
      Memo_Temp.Lines[7+7*(Nom_Question-1)]:=encrypt((Edt_V5.Text),30000);    // везде поставил 7 строк
      Memo_Temp.Lines[8+7*(Nom_Question-1)]:=encrypt(IntToStr(RG_CorrectQ.ItemIndex+1),30000);
    end;

***сам тестер***

  MQuestion.Lines[0]:=decrypt(Memo_Temp.Lines[2+7*(PrOrderQuestion[NomQuestion]-1)], 30000);  //замена 6 на 7
  MV1.Lines[0]:=decrypt(Memo_Temp.Lines[3+7*(PrOrderQuestion[NomQuestion]-1)], 30000);
  MV2.Lines[0]:=decrypt(Memo_Temp.Lines[4+7*(PrOrderQuestion[NomQuestion]-1)], 30000);
  MV3.Lines[0]:=decrypt(Memo_Temp.Lines[5+7*(PrOrderQuestion[NomQuestion]-1)], 30000);
  MV4.Lines[0]:=decrypt(Memo_Temp.Lines[6+7*(PrOrderQuestion[NomQuestion]-1)], 30000);
  MV5.Lines[0]:=decrypt(Memo_Temp.Lines[7+7*(PrOrderQuestion[NomQuestion]-1)], 30000); //добавил строку с 5 варантов сидексом 7
  Lbl_NomQuestion.Caption:=decrypt(IntToStr(NomQuestion), 30000);

  // v.0.1.0.2 Управление полосой прокрутки в полях теста
  if MQuestion.Lines.Count>=3 then MQuestion.scrollbars:=ssVertical else MQuestion.scrollbars:=ssNone;
  if MV1.Lines.Count>=3 then  MV1.scrollbars:=ssVertical else MV1.scrollbars:=ssNone;
  if MV2.Lines.Count>=3 then  MV2.scrollbars:=ssVertical else MV2.scrollbars:=ssNone;
  if MV3.Lines.Count>=3 then  MV3.scrollbars:=ssVertical else MV3.scrollbars:=ssNone;
  if MV4.Lines.Count>=3 then  MV4.scrollbars:=ssVertical else MV4.scrollbars:=ssNone;
  if MV5.Lines.Count>=3 then  MV5.scrollbars:=ssVertical else MV5.scrollbars:=ssNone; //добавил полосу прокрутки для 5 варианта

end;

Профессионалы сравните и подскажите ошибку. Скорее всего ошибка в создании и чтении срок из объекта MEMO.

[Stilet]

А в архиве весь проект выложить слабо?
Ато телепатор лень включать.

[kanich]

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

А в архиве весь проект выложить слабо?
Ато телепатор лень включать.

Вот исходники программы.

[Stilet]

теперь тестер не работает.

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

[kanich]

Спасибо за помощь