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

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

RTTI (Run-Time Type Information) в Delphi позволяет разработчикам работать с типами и объектами во время выполнения программы. Это особенно полезно в ситуациях, когда типы и имена полей неизвестны во время разработки или когда необходимо выполнить операции с объектами на основе их типа во время выполнения программы.

Проблема

Разработчики часто сталкиваются с необходимостью динамически устанавливать значения полей объектов, особенно если типы этих полей являются перечисляемыми (enum). В таких случаях использование RTTI может быть особенно полезным.

В приведенном примере кода:

type
  TCPIFileStatus= (fsUnknown, fsProcessed);
  TTest = class
    FStatus: TCPIFileStatus;
  end;
  ...
var
  Data: TTest;
  Ctx: TRttiContext;
  Status : TCPIFileStatus;
begin
  Data := TTest.Create;
  Status := fsProcessed;
  Ctx.GetType(Data.ClassType).GetField('FStatus').SetValue(Data, Status);
end;

происходит ошибка "Invalid class typecast" при попытке установить значение перечисляемого поля FStatus объекта Data с помощью RTTI.

Подход к решению

Чтобы корректно установить значение перечисляемого поля, необходимо использовать класс TValue, который позволяет преобразовать значения в формат, приемлемый для RTTI.

Пример решения

{$APPTYPE CONSOLE}
uses
  Rtti,
  SysUtils;

type
  TCPIFileStatus= (fsUnknown, fsProcessed);
  TTest = class
    FStatus: TCPIFileStatus;
  end;

var
  Data: TTest;
  Ctx: TRttiContext;
  Status : TCPIFileStatus;
  v: TValue;
begin
  try
    Data := TTest.Create;
    try
      Status := fsProcessed;
      v := TValue.From<TCPIFileStatus>(Status); // Преобразование значения перечисления в TValue
      Ctx.GetType(Data.ClassType).GetField('FStatus').SetValue(Data, v);

      // Проверка установленного значения
      Assert(Data.FStatus = Status, 'Something wrong on assigning status trough RTTI!');
    finally
      Data.Free;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Альтернативное решение

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

procedure Make(AValue: NativeInt; ATypeInfo: PTypeInfo; out Result: TValue); overload; static;

Пример использования Make для парсинга из XML конфигурации:

function EnumNameToTValue(Name: string; EnumType: PTypeInfo): TValue;
var
  V: Integer;
begin
  V := GetEnumValue(EnumType, Name);
  TValue.Make(V, EnumType, Result);
end;

Этот метод полезен, когда необходимо работать с перечислениями, тип которых известен только через PTypeInfo.

Заключение

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

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

RTTI в Delphi используется для динамической установки значений перечисляемых типов с помощью класса `TValue`, что необходимо для корректной работы с типами во время выполнения программы.

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

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

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