Проблема с методом SetValue в RTTI при работе с обобщёнными классами в Delphi 2010 и её решение через приведение типа к TObject

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

Проблема с методом SetValue в RTTI при работе с обобщёнными классами в Delphi 2010

Разработчики, сталкивающиеся с необходимостью работы с обобщёнными классами в Delphi 2010, иногда сталкиваются с проблемами при использовании методов RTTI для установки значений полей. Одной из таких проблем является ошибка доступа к памяти (Access Violation, AV) при попытке использовать метод SetValue для установки значения поля обобщённого объекта.

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

Пользователь столкнулся с ошибкой AV при попытке заполнить поле FField1 обобщённого объекта TElement в runtime. Пример кода, вызывающего ошибку:

program generic_rtti_1;
{$APPTYPE CONSOLE}
uses
  SysUtils, rtti;
type
  TMyObject = class
    FField1: string;
  end;
  TGeneric<TElement: class> = class
    procedure FillFields(Element: TElement);
  end;
procedure TGeneric<TElement>.FillFields(Element: TElement);
var
  ctx: TRttiContext;
begin
  ctx := TRttiContext.Create();
  try
    ctx.GetType(TypeInfo(TElement)).GetField('FField1').
      SetValue(@Element, TValue.FromVariant('Some string'));
  finally
    ctx.Free;
  end;
end;

Ошибка возникает при вызове метода ctx.Free и указывает на проблему в модуле System.pas. Ошибка также наблюдается при вызове метода SetValue, и это происходит независимо от того, вызывается ли он напрямую или через промежуточные переменные.

Исследование и решение проблемы

В ходе поиска решения было замечено, что исключение не возникает, если комментировать строку с созданием переменной Val и использовать её значение непосредственно в методе SetValue. Это указывает на возможную проблему с использованием TValue.FromVariant.

После ряда экспериментов было обнаружено, что проблема решается с помощью приведения типа объекта Element к TObject перед вызовом метода SetValue. Таким образом, изменённый код метода FillFields выглядит следующим образом:

procedure TGeneric<TElement>.FillFields(Element: TElement);
var
  ctx: TRttiContext;
begin
  ctx := TRttiContext.Create();
  try
    ctx.GetType(TypeInfo(TElement)).GetField('FField1').
      SetValue(TObject(Element), TValue.FromVariant('Field 1 is set'));
  finally
    ctx.Free;
  end;
end;

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

Приведение типа к TObject позволяет корректно установить значение поля обобщённого объекта. Это решение работает и не приводит к возникновению ошибки доступа к памяти. Возможно, это связано с тем, что SetValue ожидает указатель, и приведение типа к TObject обеспечивает корректную передачу указателя.

Заключение

Работа с обобщёнными классами в Delphi 2010 и использование RTTI для установки значений полей может быть неочевидной задачей. В данном случае, приведение типа к TObject позволило устранить проблему с методом SetValue. Это решение может быть полезно для разработчиков, сталкивающихся с аналогичными проблемами.

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

Разработчики Delphi 2010 столкнулись с проблемой использования метода `SetValue` в RTTI для установки значений полей обобщённых классов, что приводит к ошибке доступа к памяти, которую можно решить с помощью приведения типа к `TObject`.

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

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

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