Работа со свойствами в Delphi: корректное использование RttiProperty для доступа к значениям объектов

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

В процессе разработки на Delphi иногда возникают ситуации, когда необходимо работать со свойствами объектов, которые могут быть расположены не на самом объекте, а на одном из его стилевых объектов. Примером может служить свойство Color для компонента TEdit, которое находится на основном объекте, и для TcxTextEdit, где это свойство расположено на стилевом объекте. В таком случае, чтобы получить или установить значение свойства, нужно использовать другой подход.

Проблема и её решение

В коде, где используется метод RttiProperty.GetValue(aObject), может возникнуть ситуация, когда свойство объекта не находится на самом объекте, а на одном из его вложенных объектов. Это может привести к тому, что вызов RttiProperty.GetValue(aObject) будет выполнен не на нужном объекте, что приведёт к ошибке. Для решения этой проблемы была изменена сигнатура процедуры GetProperty на var aObject: TObject;, что позволило внутри процедуры изменять ссылку на объект, если свойство было найдено на вложенном объекте.

Вот как была изменена реализация:

class procedure RttiHelper.GetProperty(var aObject: TObject; const aPropertyName, aSecondLevel: string; var aRttiProperty: TRttiProperty);
var
  NextLevel: TObject;
begin
  aRttiProperty := ctx.GetType(aObject.ClassType).GetProperty(aPropertyName);

  if aRttiProperty = nil then // Попытка найти свойство на следующем уровне
  begin
    aRttiProperty := ctx.GetType(aObject.ClassType).GetProperty(aSecondLevel);

    if aRttiProperty <> nil then
    begin
      NextLevel := aRttiProperty.GetValue(aObject).AsObject;
      if NextLevel = nil then
        exit;
      aObject := NextLevel;
      aRttiProperty := ctx.GetType(NextLevel.ClassType).GetProperty(aPropertyName);
    end;
  end;
end;

После внесения этих изменений, была проведена дополнительная очистка кода, и в итоге был получен полезный помощник RttiHelper, который позволяет корректно работать со свойствами объектов в Delphi.

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

Был создан модуль RttiHelperU, который включает в себя классы и функции для работы с свойствами объектов, учитывающие возможное расположение свойства на вложенном объекте. Ключевыми функциями являются GetProperty, GetPropertyValue и SetPropertyValue, которые позволяют получать и устанавливать значения свойств объектов, используя механизмы RTTI.

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

В контексте использования RTTI для работы со свойствами объектов в Delphi, важно понимать, что некоторые свойства могут быть не напрямую доступны на объекте, а на одном из его стилевых объектов. В случае с TcxTextEdit от DevExpress, свойство Color находится на стилевом объекте, а не на самом компоненте. Это требует от разработчика дополнительной внимательности при работе с RTTI, особенно при использовании методов, таких как RttiProperty.GetValue(aObject).

Заключение

Использование RTTI в Delphi для доступа к свойствам объектов может быть не всегда интуитивно понятным, особенно когда свойства расположены не на основных объектах. Приведённый выше пример показывает, как можно модифицировать стандартный подход для работы с RTTI, чтобы обеспечить корректное обращение к свойствам, расположенным на вложенных объектах. Это позволяет разработчикам избегать ошибок и значительно упрощает процесс разработки, особенно при работе с компонентами от третьих производителей, такими как DevExpress.

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

В контексте данного описания рассматривается проблема доступа к свойствам объектов в среде разработки Delphi с использованием механизмов RTTI, когда свойства могут быть расположены не на самом объекте, а на его стилевых объектах, что требует дополнительн

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

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

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