Возникает ошибка Acces Violation при использовании функции Copy

[Вадим Мошев]

Здравствуйте.

Хотел бы обратиться за помощью. У меня возникла ошибка Access Violation (скриншот я прикреплю ниже) при операции со строками, а именно – при попытке сравнить (проверить на НЕРАВЕНСТВО) две строки, одна из которых была получена присваиванием ей содержимого поля Edit, то есть

s2:=edit2.text // переменная s2 объявлена как string, то есть s2: string;

Вторая строка является результатом функции Copy, и записано это ТАКИМ ОБРАЗОМ:

copy( R.AnswerVariant[2], 2, length(R.AnswerVariant[2]) - 1 )

Здесь R – запись,
AnswerVariant – поле этой записи, которое описано таким образом

AnswerVariant: array[1..6] of string;

То есть, массив строк, а AnswerVariant[2] второй элемент этого массива – просто строка.

Вот кусок кода, который у меня вызывает ошибку:

// Проверка Второго варианта
                                if
                               ( s2 <>

                                copy( R.AnswerVariant[2], 2, length(R.AnswerVariant[2]) - 1 ) )
                                              OR
                                  ( (R.AnswerVariant[2][1] = '=') AND (not radioButton2.Checked) )
                                              OR
                                  ( (R.AnswerVariant[2][1] = '-') AND (radioButton2.Checked) )

                                                                             then
                                                                                begin
                                                                                  Result:=TRUE;
                                                                                  exit;
                                                                                end;

Соль, правда, может в том, что у меня строки s2 и R.AnswerVariant[2] являются пустыми, однако, как мне кажется, никакое из этих условий не должно давать повода для ошибки.

Прошу помощи и консультации (я то я чё-то туплю с этим очень долго и дальше дело у меня не двигается, запарился).

P.S. Если этой информации недостаточно, скажите мне, что конкретно следует указать сверх того, что было мной указано здесь.

P.P.S. Скриншот леплю ниже.

[Valio]

Довольно страшный код, я рекомендую полностью пересмотреть принцип действия программы.

Что это такое будет вообще?

[eduard93]

Отладочные опции компилятора включены?

[Человек_Борща]

поставьте madexcept. Он в стеке покажет, откуда ноги ростут.

[Вадим Мошев]

Valio

Довольно страшный код, я рекомендую полностью пересмотреть принцип действия программы.

Что это такое будет вообще?

Я планирую написать такую систему тестирования знаний...
Код страшный? Хм, странно, я же совсем наоборот старался писать код так, чтобы он легко читался и чётко выделялась иерархия. Что именно вам не нравится в коде? Что у меня неправильно с точки зрения форматирования?

eduard93

Отладочные опции компилятора включены?

Отладочные опции? Извините, плохо понимаю, о чём речь... но я выполнял пошаговую трассировку (F7), наблюдал за значениями переменных (Watch).

Человек_Борща

поставьте madexcept. Он в стеке покажет, откуда ноги ростут.

Я впервые сталкиваюсь с этим понятием. Не поможете разжевать?

заранее спасибо

[GunSmoker]

http://www.gunsmoker.ru/2009/05/access-violation.html
http://www.gunsmoker.ru/2009/04/delphi_19.html

[Человек_Борща]

Вадим Мошев, смотрим http://madshi.net/ это средство отлова исключений. Бесплатное.
Возможностей не так уж и много как у EurekaLog но его вполне достаточно. При ошибках типа AV и тд. формирует довольно детальные отчёты.

[ReportCube]

При пустышке R.AnswerVariant[2] в R.AnswerVariant[2][1] будет КРЯ!!!

[Valio]

Я планирую написать такую систему тестирования знаний...
 Код страшный? Хм, странно, я же совсем наоборот старался писать код так, чтобы он 
легко читался и чётко выделялась иерархия. Что именно вам не нравится в коде? 
Что у меня неправильно с точки зрения форматирования?

Сам факт наличия таких структур:

if
                               ( s2 <>

                                copy( R.AnswerVariant[2], 2, length(R.AnswerVariant[2]) - 1 ) )
                                              OR
                                  ( (R.AnswerVariant[2][1] = '=') AND (not radioButton2.Checked) )
                                              OR
                                  ( (R.AnswerVariant[2][1] = '-') AND (radioButton2.Checked) )

говорит о том, что стоит пересмотреть способ обработки данных.

===========
Допустим ты хочешь написать экзаменатор аля "кто хочет стать импотентом с Максимом Галкиным".

Дано:
1 вопрос, 10 варианта ответа, ответов может быть сколько угодно.

Думаем:
Нам нужно гдето хранить всё это что указано в дано.
Вопрос - вопрос может быть длиный. Однозначно TStringList.
Варианты ответов - они будут у нас однострочные, но их много. Однозначно TStringList;

Прикидываем:

  TCard = Record
    Question : TStringList;           // Вопрос
    VariantsOfAnswers : TStringList;  // Варианты ответов
    AnswerCode : String;            // Код правильного ответа
  End;

.....

Var M : Array [1..100] of TCard;

На форму кидаешь TMemo. Чекбоксы создаёшь автоматически.

(чекбоксы - потому что ответов может быть не один)

После того как юзер понатыкал чекбоксов, то идёт обработка их с формированием AnswerCode вроде такой

UserAnswerCode := '';

if Checkbox1.Checked = True Then UserAnswerCode := UserAnswerCode + '1' else UserAnswerCode := UserAnswerCode + '0';

... (это тоже в цикле перебирается) 

if Checkbox2.Checked = True Then UserAnswerCode := UserAnswerCode + '1' else UserAnswerCode := UserAnswerCode + '0';

И на выходе у тебя строка вида '0100101001' - это и будет код ответов.

Осталось его обработать процедурой и както учесть.

Procedure CheckedCodeUserAnswer(N : integer;  Code : String)

Функция принимает номер вопроса и код ответов, сверяет с AnswerCode и даёт результат.

Всё. Вся программа занимает дай бог 50 строк, и нет никаких громадных ифоф.

[eduard93]

Отладочные опции? Извините, плохо понимаю, о чём речь... но я выполнял пошаговую трассировку (F7), наблюдал за значениями переменных (Watch).

Они находятся в опциях проекта на вкладке Compiler. В вашем случае должна помочь опция Range checking, но и Overflow checking не помешает.