Почему `GetPropInfo` возвращает `nil`: Разбор проблемы с `{$METHODINFO ON}` в Delphi

Delphi , Компоненты и Классы , RTTI

Почему GetPropInfo возвращает nil: Разбор проблемы с {$METHODINFO ON} в Delphi

Вопрос, с которым сталкиваются разработчики, работающие с Delphi и Object Pascal, связан с использованием механизма RTTI (Run-Time Type Information) для работы с типами в runtime. Ошибка, описанная в вопросе, заключается в том, что функция GetPropInfo может возвращать nil, несмотря на корректное использование директивы {$METHODINFO ON} для объявления класса.

Контекст проблемы

Рассмотрим пример кода, где определен класс TMyClass с использованием директивы {$METHODINFO ON} для включения механизма RTTI:

type
  {$METHODINFO ON}
  TMyClass = class
  private
    fField: Integer;
  published
    property Field: Integer read fField write fField;
  end;
{$METHODINFO OFF}

procedure TestRTTI;
begin
  assert(assigned(GetPropInfo(TMyClass, 'Field')), 'WTF! No RTTI found!');
end;

В данном случае ожидается, что GetPropInfo вернет информацию о свойстве Field, так как RTTI включен для класса TMyClass. Однако, в реальности, может возникнуть ситуация, когда функция возвращает nil, что приводит к срабатыванию утверждения.

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

Проблема заключается в том, что компилятор учитывает только первую декларацию класса для генерации RTTI. Если перед полным определением класса есть его предварительное объявление без включения RTTI, то даже если в полном определении класс объявлен с {$METHODINFO ON}, RTTI не будет сгенерировано.

Вот пример кода, который приведет к ошибке:

type
  TMyClass = class; // Предварительное объявление
  {$METHODINFO ON}
  TMyClass = class
  private
    fField: Integer;
  published
    property Field: Integer read fField write fField;
  end;
{$METHODINFO OFF}

procedure TestRTTI;
begin
  assert(assigned(GetPropInfo(TMyClass, 'Field')), 'WTF! No RTTI found!');
end;

Чтобы решить проблему, необходимо включить директиву {$METHODINFO ON} в предварительном объявлении класса:

type
  {$METHODINFO ON}
  TMyClass = class; // Предварительное объявление с включенным RTTI
  {$METHODINFO OFF}
  // ... полное определение класса ...
end;

Альтернативный ответ

Стоит отметить, что для включения RTTI достаточно использовать директиву {$TYPEINFO ON}, или сокращенный вариант {$M+}. В Delphi 2009 и более поздних версиях компилятор автоматически добавляет {$M+} к любому классу, содержащему раздел published, что устраняет данную проблему.

Заключение

При работе с механизмом RTTI в Delphi важно помнить о правилах предварительного объявления классов и корректном включении механизма RTTI. Следование этим правилам позволит избежать ошибок, связанных с некорректной работой GetPropInfo.

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

Проблема с возвратом `nil` функцией `GetPropInfo` в Delphi связана с неправильным использованием директив RTTI и предварительным объявлением класса без включения RTTI.

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

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

:: Главная :: RTTI ::