Создание экземпляра формы в Delphi с использованием RTTI: решение проблемы инстанцирования

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

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

Проблема

Разработчик хочет создать форму, используя её классное имя, представленное в виде строки. Вместо использования метода GetClass, он стремится воспользоваться новыми возможностями RTTI в Delphi. Уже имея объект TRttiType, разработчик не знает, как его инстанцировать.

Пример кода

var
  f: TFormBase;
  ctx: TRttiContext;
  lType: TRttiType;
begin
  ctx := TRttiContext.Create;
  lType := ctx.FindType('UnitName.TFormFormulirPendaftaran'); // Используем FindType вместо цикла
  if lType <> nil then
  begin
    // Как инстанцировать lType здесь?
    // Подробности далее...
  end;
end;

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

Для инстанцирования объекта класса TRttiType, необходимо выполнить кастинг к классу TRttiInstanceType и затем вызвать конструктор с помощью функции GetMethod.

var
  ctx: TRttiContext;
  lType: TRttiType;
  t: TRttiInstanceType;
  f: TValue;
begin
  ctx := TRttiContext.Create;
  lType := ctx.FindType('UnitName.TFormFormulirPendaftaran');
  if lType <> nil then
  begin
    t := lType.AsInstance;
    f := t.GetMethod('Create').Invoke(t.MetaclassType, [nil]);
    t.GetMethod('Show').Invoke(f, []);
  end;
end;

После инстанцирования объекта формы, дальнейшее взаимодействие с ним можно осуществлять без использования RTTI, например, вызвав метод Show напрямую.

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

Также можно использовать следующий подход для инстанцирования формы:

type
  TFormBaseClass = class of TFormBase;

f := TFormBaseClass(GetTypeData(lType.Handle)^.ClassType).Create(TheDesiredOwnerHere);

или, если TFormBase является производным от TForm или TCustomForm, использовать соответствующие типы.

Обновление: Также можно использовать метод, предложенный @RRUZ, который более ориентирован на использование TRttiType и не зависит от функций из устаревшего модуля TypInfo.

Заключение

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

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

Разработчик в Delphi использует RTTI для создания экземпляра класса формы, имя которого представлено в виде строки.

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

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

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