Возникает ошибка при выделении памяти для элемента типа TStringList динамического массива записей.

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

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

У меня возникает проблема, с которой я не могу разобраться самостоятельно.

Дело в том, что у меня есть запись, одним из полей которой является элемент типа TStringList.

type
  TQuestion = record  

                    QuestionText: TStringList; // ВОТ ОН!!!
                    StringsAmount: byte; // Число строк в тексте вопроса
                    Way: string[8]; // способ ответа на вопрос
                    AnswerVariant: array [1..6] of string; // варианты ответа на вопрос
                    Bound: 1..6; // Порог
                    EditAnswer: string; // Правильный ответ на вопрос, вводимый с клавиатуры
                    GivenAnswer: string; // Ответ введённый пользователем
                    CaseSensitive: boolean; // флаг регистрочувствительности
                    Answered: boolean;   // признак того, что на вопрос дан ответ
                    Right: boolean; // Признак того, что на вопрос дан ВЕРНЫЙ ответ
                 end;

Также у меня объявлена переменная (глобальная), которая является динамическим массивом записей TQuestion:

Question: Array of TQuestion; // Динамический массив

Разумеется, прежде, чем работать с динамическим массивом, надо установить для него длину посредством процедуры SetLength. Это происходит у меня так:

// Создать массив для нужного числа вопросов
        SetLength(Question, beforeTest.amountToTest);

В данном случае, у меня второй параметр этой процедуры заведомо не может быть меньше единицы, то есть минимум, чему он может быть равен – это 1.
Таким образом, проблем здесь не возникает.

Проблемы же начинаются далее, когда, как было написано в названии темы, пытаюсь выделить для поля QuestionText (см. выше) память.
Поскольку Это поле принадлежит записи Question, вернее, элементам этого массива, то есть записи, то проблемная операция выглядит следующим образом:

Question[t].QuestionText.Create;

Вот в этой строке ошибка.
Здесь написано: для t-го элемента массива записей Question, его поля QuestionText (типа TStringList) выделить память.

Возникает ошибка:

---------------------------
Debugger Exception Notification
---------------------------
Project VIRTUAL_EXAMENATOR.exe raised exception class EAccessViolation with message 'Нарушение доступа по адресу 00403F21 в модуле 'VIRTUAL_EXAMENATOR.exe'. Чтение по адресу 00000000'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Часть этого кода выглядит следующим образом:

for j:=1 to LastNumber do
                           begin
                             if j in QuestionsNumber
                                                then // Попался вопрос с нужным номером
                                                  begin
                                                    inc(t); // t - порядковый номер вопр в записи
                                                    // Читаем
                                                        ReadLn(F); // номер вопроса в файле. Попускаем
                                                        ReadLn(F, Question[t].StringsAmount); {кол-во
                                                                                                строк
                                                                                              в тексте
                                                                                              вопроса}

                                                        // Выделить память для текста вопроса
                                                            Question[t].QuestionText.Create; // ЗДЕСЬ ОШИБКА!

                                                        // Читаем текст вопроса построчно
                                                            for k:=0 to Question[t].StringsAmount-1 do
                                                                                         begin
                                                                                           ReadLn(F, sbuf);
                                                                                           Question[t].QuestionText.Add(sbuf)
                                                                                         end;
//…………………………...……………………………………….

Переменная t до самого первого её инкремента равна (-1), а после него равна 0, то есть нумерация в динамическом массиве у меня идёт с нуля, как должно быть.

Подскажите мне, в чёму меня дело, пожалуйста.
Заранее благодарю!

[Valio]

Лень было всё читать но могу сказать:

Question[t].QuestionText := TStringList.Create;

Вот так создают его.

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

Valio Спасибо большое тебе.

Вот какой я забывчивый или невнимательный. Я же в прошлом модуле работал с типом СтрингЛист, и там я делал всё правильно, а тут что-то забыл... может устал я просто, мозги забиты.
Хотя в прошлом модуле вместо динамических массивов были однонаправленные списки, но это сути не меняет.
А может, это из-за того, что я с этим типом недавно знаком?...

Забаните меня за невнимательность

[Пепел Феникса]

А может, это из-за того, что я с этим типом недавно знаком?...

обьект любого класса создается по принципу
<переменная>:=<имя класса>.<имя конструктора>(<параметры>);

[phomm]

а я ещё наблюдаю странную штуку - массив динамический, нумерация, естественно, с 0, а inc(t) происходит до обращения к t-ому элементу массива questions, т.е. может сложится обращение questions[1] хотя длина массива может быть тоже 1, и, соответственно, индекс первого элемента массива будет не 1 а 0 !

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

коли желаем, могу поделиться мыслями по поводу написания экзаменатора, у самого сурьезноспроектированный оный...

и, да, первый совет - мешанина из рекордов, массивов, классов и переменных достаточно неприглядная (( взять уж хотя бы переменную stringsamount при живом stringlist'e , вот не уследили Вы в коде , и количество строк в самом стринглисте может быть изменено, а переменная stringsamount нет, и что тогда ? если уж делаете классы, то делайте классы.. Tcollection и Tlist Вам в помощь

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

phomm

а я ещё наблюдаю странную штуку - массив динамический, нумерация, естественно, с 0, а inc(t) происходит до обращения к t-ому элементу массива questions, т.е. может сложится обращение questions[1] хотя длина массива может быть тоже 1, и, соответственно, индекс первого элемента массива будет не 1 а 0 !

У меня же было написано, что до самого первого обращения к инкременту, переменная t устанавливается в (-1), то есть, t:=-1;
Таким образом, нумерация динамического массива будет всегда с нуля... если я вас праивльно понимаю...

коли желаем, могу поделиться мыслями по поводу написания экзаменатора, у самого сурьезноспроектированный оный...

Спасибо большое, я приму к сведению, но, может, не в ближайшее время... Контакты, вроде, у вас есть, если что, обращусь...