Устранение ошибки 'Access Violation' при присвоении значения опубликованному свойству в Delphi 2009

Delphi , Базы данных , Модуль данных

При работе с Delphi 2009 вы столкнулись с ошибкой 'Access Violation' при попытке присвоить значение опубликованному свойству компонента на Datenodule. В данной статье мы рассмотрим причину этой ошибки и способы ее устранения.

Описание проблемы В вашем приложении на Delphi 2009 есть Datenodule, на котором расположен кастомный компонент 'Globals'. Вы пытаетесь изменить опубликованное свойство (строковый тип) компонента 'Globals' на другой форме:

dm.Globals.qhProject := _ProjectName.Text; // всегда вызывает ошибку 'Access Violation'

Контрол _ProjectName является потомком TLabeledEdit. Ошибка 'Access Violation' возникает, только если в поле есть какой-либо текст. Если присвоить значение свойству вручную, ошибка не происходит:

dm.Globals.qhProject := 'some text'; // работает

Определение свойства qhProject выглядит следующим образом:

FqhProject: string;
property qhProject: string read FqhProject write FqhProject;

Вы не можете понять, почему возникает ошибка 'Access Violation', и перемещали порядок автоматического создания форм и Datenodule, но ошибка все равно появлялась.

Обновление Вы используете TFormContainer из Billenium Effects для переключения между формами в приложении. Обе формы, участвующие в проблеме, находятся в контейнере форм. На форме TdlgSummary есть процедура SyncVars:

procedure TdlgSummary.SyncVars;
begin
    dm.Globals.qhProject := _ProjectName.Text;
end;

На форме TdlgFinalize вызывается эта процедура:

dlgSummary.SyncVars;

Если вызывать SyncVars внутри TdlgSummary, все работает нормально. Если вызывать ее из TdlgFinalize, возникает ошибка 'Access Violation'. Кажется, что проблема кроется именно в этом, но вы не можете понять, что именно идет не так. Даже если переключиться на TdlgFinalize, TdlgSummary не уничтожается, так как к ней можно вернуться. Есть ли идеи, как решить эту проблему?

Альтернативный ответ Возможно, контрол _ProjectName является nil. Попробуйте поставить точку останова на этой строке и просмотрите _ProjectName, чтобы проверить, дает ли он действительную ссылку или нет.

Подтвержденный ответ Оказалось, что проблема связана с TFormContainer. Компонент создавал форму, но не присваивал ее глобальной переменной. Добавление dlgSummary := Self; в обработчик события OnCreate формы TdlgSummary решило проблему.

Вывод При работе с компонентами на Datenodule важно правильно обращаться к ним и учитывать особенности их создания и уничтожения. В данном случае проблема была связана с TFormContainer и неправильным присвоением созданной формы глобальной переменной. Устранение этой проблемы помогло избежать ошибки 'Access Violation' при присвоении значения опубликованному свойству компонента на Datenodule.

Создано по материалам из источника по ссылке.

Устранение ошибки 'Access Violation' при присвоении значения опубликованному свойству в Delphi 2009 на Datenodule.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Модуль данных ::