Работа с улучшенным RTTI в Delphi XE: чтение и запись объектов в XML

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

В статье рассматривается использование улучшенных возможностей RTTI (Runtime Type Information) в Delphi XE и более поздних версиях для чтения и записи объектов в XML. Особое внимание уделяется работе с записями (records) и массивами записей, что может быть сложной задачей при использовании стандартных механизмов.

Проблема с записями

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

Пример кода

Давайте рассмотрим пример кода, который демонстрирует проблему:

procedure TMyBase.SaveToXML(node: TJclSimpleXMLElem);
var
  FContext: TRttiContext;
  FType: TRttiType;
  FProp: TRttiProperty;
  Value: TValue;
  FRecord: TRttiRecordType;
  Data: TValue;
begin
  // ... (инициализация и основной цикл обработки свойств)
  if FProp.PropertyType.TypeKind = tkRecord then
  begin
    // ... (создание подэлемента для записи)
    FRecord := FContext.GetType(FProp.GetValue(self).TypeInfo).AsRecord;
    for FField in FRecord.GetFields do
    begin
      // >>>> self is not the correct instance <<<<
      Value := FField.GetValue(self);
      // ... (дальше следует код для записи значения)
    end;
  end;
end;

Решение проблемы

Для корректной работы с записями необходимо использовать метод GetReferenceToRawData, который возвращает указатель на начало данных, хранящихся в объекте TValue. Это позволяет получить доступ к полям записи, как если бы вы работали с ними напрямую в памяти.

Обновленный код

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

tkRecord : begin
  subchild := Child.Items.Add ( FProp.Name ) ;
  Value := FProp.GetValue(self) ;
  FRecord := FContext.GetType(FProp.GetValue(self).TypeInfo).AsRecord ;
  for FField in FRecord.GetFields do begin
    Data := FField.GetValue ( Value.GetReferenceToRawData ) ;
    subchild.Items.Add ( FField.Name ).Value := Data.ToString ;
  end;
end;

Работа с массивами

Для работы с массивами записей необходимо использовать дополнительные функции RTTI, например, GetArrayLength и GetArrayElement, а также обрабатывать каждый элемент массива отдельно, возможно, рекурсивно, если элементы массива также являются записями.

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

Если нет строгой необходимости использовать RTTI, стоит рассмотреть альтернативные подходы, например, использование компонента OmniXML, который позволяет сохранять и загружать объекты, наследующие TPersistent, в XML.

Заключение

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

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

Статья посвящена использованию улучшенных функций RTTI в Delphi XE для чтения и записи объектов, включая записи и массивы записей, в формат XML.

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

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

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