Почему в Delphi XE8 изменилось назначение индексов радио-контролов после обновления из XE4?

Delphi , Программа и Интерфейс , Формы

Вопрос, поднятый в данной статье, касается проблемы, возникшей после обновления среды разработки Delphi с версии XE4 до XE8. В частности, пользователь столкнулся с ошибкой доступа при назначении индекса элемента в RadioGroup. В XE4 такой код работал корректно, в то время как в XE8 вызывал исключение. Проблема проявлялась только при запуске программы как автономного приложения, в то время как в режиме отладки всё функционировало нормально.

Описание проблемы и контекст

Исходный код, вызывающий ошибку, выглядит следующим образом:

with TravelBookingForm do begin
   try
      rg1.ItemIndex := Tag - 1;
   except
      on E: Exception do
      begin
         ShowMessage(E.Message); // Сообщение об ошибке доступа
      end;
      rg1.Tag := 0;
   end;
end;

Пользователь предположил, что проблема может быть связана с использованием with и предложил убрать его, а также проверить, что формы не удалены. В альтернативном ответе было предложено разделить операцию чтения Tag и назначения ItemIndex на отдельные действия, чтобы определить, какая именно вызывает ошибку.

Подтвержденный ответ

После дополнительного тестирования было подтверждено, что RadioGroup rg1 не является nil, но всё же вызывает ошибку доступа. Это указывает на то, что rg1 обращается к памяти, которая уже была освобождена. Ошибка возникает из-за того, что программа пытается использовать форму после её уничтожения.

Анализ и решение проблемы

Разработчики часто создают все формы при старте основной программы и хранят ссылки на них в глобальных переменных. Это может привести к тому, что ссылки останутся после уничтожения формы, что и является причиной ошибки. Для отладки таких ситуаций можно использовать инструменты, такие как полная отладочная версия FastMM, которая предупреждает об попытках доступа к освобождённой памяти.

Рекомендации

• Используйте отладчик для определения моментов уничтожения формы.
• Проверьте, не пытается ли ваш код удалить форму несколько раз.
• Убедитесь, что все ссылки на форму удаляются корректно.

Пример кода

// Создание формы как локальной переменной
var
  TravelBookingForm: TTravelBookingForm;
begin
  TravelBookingForm := TTravelBookingForm.Create(nil);
  try
    // Работа с формой
    with TravelBookingForm do
    begin
      // Использование локальной переменной для Tag
      var t: NativeInt;
      t := Tag;
      rg1.ItemIndex := t - 1;
    end;
  finally
    // Освобождение формы
    TravelBookingForm.Free;
  end;
end;

Заключение

При обновлении среды разработки Delphi с XE4 до XE8 важно учитывать изменения, которые могут повлиять на работоспособность кода. В данном случае, проблема была связана с неправильным управлением памятью, что привело к попытке доступа к уже освобождённой памяти. Использование правильных практик управления памятью и отладки поможет избежать подобных ошибок.

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

Вопрос связан с изменением работы радио-контролов в среде разработки Delphi после обновления с версии XE4 до XE8, проявляющимся в ошибке доступа при использовании индексов элементов RadioGroup.

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

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

:: Главная :: Формы ::