Использование RTTI для доступа к полям в Delphi: обход типичной ошибки

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

RTTI (Runtime Type Information) в Delphi предоставляет возможность получить информацию о типах и их полях во время выполнения программы. Это может быть полезно, например, при работе с плагинами или библиотеками, где необходимо динамически обращаться к полям объектов.

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

Разработчик столкнулся с проблемой, когда пытался получить указатель на поле fBilling класса TSubscription через переменную TRttiProperty aRttiProperty. В коде использовалась функция getfBillingObj, которая должна была извлечь указатель на поле fBilling из TRttiProperty, но вместо этого возвращался указатель на сам объект TSubscription, а не на поле fBilling.

Пример кода, который не работает

function TSubscription.getfBillingObj(const aRttiProperty: TRttiProperty): TMyObject;
begin
  Result := aRttiProperty.GetValue(Self).AsType<TMyObject>;
end;

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

В комментариях обсуждается, что использование TRttiProperty для получения указателя на поле может быть избыточным, и что можно просто обращаться к полю напрямую через свойство. Также упоминается, что для получения адреса поля можно использовать его смещение в классе, но это не является необходимым в данном случае.

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

Ошибка в исходном коде отсутствует. Функция getfBillingObj правильно возвращает указатель на объект fBilling. Это подтверждается рабочим примером кода:

uses
  System.Rtti;

type
  TMyObject = class
  public
    Name: string;
    constructor Create(const aName: string);
  end;

  TSubscription = class(TMyObject)
  private
    fBilling: TMyObject;
  public
    constructor Create(const aName: string);
    destructor Destroy; override;
    function getfBillingObj(const aRttiProperty: TRttiProperty): TMyObject;
    property billing: TMyObject read fBilling;
  end;

constructor TMyObject.Create(const aName: string);
begin
  inherited Create;
  Name := aName;
end;

constructor TSubscription.Create(const aName: string);
begin
  inherited Create(aName);
  fBilling := TMyObject.Create('bill');
end;

destructor TSubscription.Destroy;
begin
  fBilling.Free;
  inherited Destroy;
end;

function TSubscription.getfBillingObj(const aRttiProperty: TRttiProperty): TMyObject;
begin
  Result := aRttiProperty.GetValue(Self).AsType<TMyObject>;
end;

// ... остальной код, использующий RTTI для создания контекста и получения свойства ...

var
  sub: TSubscription;
  bill: TMyObject;
begin
  sub := TSubscription.Create('sub');
  try
    // Использование RTTI для получения объекта fBilling
    bill := sub.getfBillingObj(ctx.GetType(TSubscription).GetProperty('billing'));
    // Проверка, что bill.Name равен 'bill', как ожидается...
  finally
    sub.Free;
  end;
end;

Также подчеркивается, что в данном случае использование RTTI избыточно, так как можно напрямую обращаться к полю через свойство:

var
  sub: TSubscription;
  bill: TMyObject;
begin
  sub := TSubscription.Create('sub');
  try
    bill := sub.billing;
    // Проверка, что bill.Name равен 'bill', как ожидается...
  finally
    sub.Free;
  end;
end;

Заключение

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

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

Использование RTTI в Delphi для доступа к полям, обход типичной ошибки при работе с указателями на поля и свойствами.

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

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

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