Создание объектов в Delphi по имени типа с помощью RTTI

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

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

Проблема

Рассмотрим задачу: у нас есть текстовая строка с именем типа, и мы хотим создать объект соответствующего типа. Например, мы хотим сделать следующее:

type
  TSomeType<T> = class
    // ... контент класса ...
  end;

procedure DoSomething;
var
  obj : TObject;
begin
  obj := TSomeType<TGetTypeByName('Integer')>.Create;
  // ... работа с объектом ...
end;

Однако, поиски в документации и единицах Delphi не привели к решению задачи.

Решение

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

Пример регистрации типа и создания объекта:

RegisterCustomType('Integer', TSomeType<Integer>);
RegisterCustomType('String', TSomeType<String>);

if FindCustomType('Integer') <> nil then
  obj := FindCustomType('Integer').Create;

Для реализации реестра можно использовать коллекцию TDictionary из Generics.Collections, как показано в примере:

var
  TypeDict: TDictionary<string, TClass>;
  obj: TObject;
begin
  TypeDict := TDictionary<string, TClass>.Create;
  TypeDict.Add('Integer', TList<Integer>.classType);
  if TypeDict.ContainsKey('Integer') then
    obj := TypeDict.Items['Integer'].Create;
  // ... работа с объектом ...
end;

Также можно использовать интерфейсы для создания более гибкой системы, как показано в дополнительном примере с использованием интерфейса ITest.

Альтернативный путь

С версии Delphi 2010 появилась новая единица RTTI, которая позволяет получать типы, объявленные в разделе интерфейсов единиц. С помощью TRttiContext.FindType можно найти тип по его квалифицированному имени. Например, для типа Integer:

var
  context: TRttiContext;
  typeInfo: TRttiType;
begin
  typeInfo := context.FindType('System.Integer');
  // ... работа с информацией о типе ...
end;

Однако, этот механизм не позволяет создавать экземпляры генерических типов, которые не были инстанцированы на этапе компиляции. Создание экземпляров генерических типов во время выполнения программы требует генерации кода во время выполнения.

Заключение

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

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

Вопрос о создании объектов в Delphi по имени типа с использованием RTTI для повышения динамичности кода.

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

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

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