Получение класса Delphi через RTTI, если его имя неизвестно системе

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

Get class by its name in Delphi using RTTI

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

Проблема и вопрос

Функция System.Classes.GetClass в Delphi предназначена для получения TClass по имени. Однако, если имя класса не было зарегистрировано в системе типов, функция вернёт nil. Это может вызвать затруднения, так как стандартные классы, такие как TButton, должны быть зарегистрированы, но это происходит только при их использовании в проекте. Пример кода:

if(GetClass('TButton') = nil)
then ShowMessage('TButton not found!')
else ShowMessage('TButton found!');

В этом примере всегда отображается сообщение "TButton not found!", так как имя класса не зарегистрировано без явного использования класса в коде.

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

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

Подтвержденный ответ

Чтобы получить ссылку на класс, который не зарегистрирован в системе типов, можно использовать следующий код:

uses
  System.Classes,
  System.RTTI;

var
  c: TClass;
  ctx: TRttiContext;
  typ: TRttiType;
begin
  ctx := TRttiContext.Create;
  typ := ctx.FindType('Vcl.StdCtrls.TButton'); // Полностью квалифицированное имя класса
  if (typ <> nil) and (typ.IsInstance) then
    c := typ.AsInstance.MetaClassType;
  ctx.Free;
end;

Важно использовать полностью квалифицированное имя класса, например, Vcl.StdCtrls.TButton для TButton.

Регистрация класса в проекте гарантирует, что класс будет скомпилирован в приложение. Если класс не используется нигде в коде и не зарегистрирован, он не будет присутствовать в приложении, и расширенное RTTI не сможет помочь.

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

uses
  System.StrUtils,
  System.Classes,
  System.RTTI;

function FindAnyClass(const Name: string): TClass;
var
  ctx: TRttiContext;
  typ: TRttiType;
  list: TArray<TRttiType>;
begin
  Result := nil;
  ctx := TRttiContext.Create;
  list := ctx.GetTypes;
  for typ in list do
  begin
    if typ.IsInstance and EndsText(Name, typ.Name) then
    begin
      Result := typ.AsInstance.MetaClassType;
      Break;
    end;
  end;
  ctx.Free;
end;

Этот код перебирает все типы, доступные через RTTI, и пытается найти тип, который соответствует введённому имени класса (без необходимости использования полного имени).

Заключение

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

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

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

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

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

:: Главная :: Классы ::