Обновление и чтение полей типа `TRecord` в Delphi с помощью RTTI

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

Обновление и чтение полей типа TRecord в Delphi с помощью RTTI

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

Пример структуры TRecord

type
    TMyRecord = record
      X: Integer;
      Y: Integer;
      Z: DateTime;
    end;
var
    MyRecord: TMyRecord;

Проблема

Пользователь хочет создать процедуру UpdateValue, которая будет обновлять значения полей структуры по имени, и функцию GetValue, которая будет возвращать значения полей по имени. Однако, напрямую обращаться к полям структуры по имени не получится, так как в Pascal нет оператора доступа, подобного MyRecord[aRecordMemberName] := AValue;.

Решение

Использование RTTI может быть сложным и медленным, поэтому для решения задачи можно использовать альтернативные подходы, например, использование TDictionary<string, Variant> или создание перечисляемого типа с вспомогательными функциями для работы со структурами.

Пример с перечисляемым типом и вспомогательными функциями

type
  TFrogProperty = (fpName, fpBirthDate, fpWeight);
  TFrogPropertyHelper = record helper for TFrogProperty
  strict private
    const PropNames: array[TFrogProperty] of string = ('Name', 'Birth date', 'Weight');
  public
    function ToString: string;
    class function FromString(const APropName: string): TFrogProperty; static;
  end;

  TFrog = record
  strict private
    FProperties: array[TFrogProperty] of Variant;
  private
    function GetProp(Prop: TFrogProperty): Variant;
    procedure SetProp(Prop: TFrogProperty; const Value: Variant);
    function GetPropByName(APropName: string): Variant;
    procedure SetPropByName(APropName: string; const Value: Variant);
  end;

И далее реализация вспомогательных функций для TFrogPropertyHelper и методов для TFrog, позволяющих работать с полями структуры по имени, с использованием перечисляемого типа TFrogProperty.

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  var James: TFrog;
  James['Name'] := 'James';
  ShowMessage(James['Name']);
end;

Альтернативные подходы

Также упоминаются такие подходы как использование TDictionary<string, Variant>, статического массива Variant, или создание кастомного типа TValue для работы с полями разного типа.

Заключение

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

Обсуждение в комментариях показывает, что разработчики предпочитают более простые и быстрые решения, избегая сложностей RTTI, и предлагают различные альтернативные методы, включая использование TDictionary<string, Variant> и создание перечисляемого типа с вспомогательными функциями для работы со структурами.

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

Вопрос связан с обновлением и чтением полей структуры `TRecord` в Delphi по имени поля, используя альтернативные методы, так как прямой доступ к полям по имени в Pascal не предусмотрен, и RTTI может быть неэффективным.

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

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

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