Сканер загруженных классов в Delphi: поиск классов с пользовательскими свойствами без регистрации

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

Сканер загруженных классов в Delphi: поиск классов с пользовательскими атрибутами без регистрации

В мире разработки на Delphi и Pascal часто возникает необходимость работать с метаданными классов, такими как атрибуты. Например, разработчику может потребоваться найти все классы, которые содержат определённый пользовательский атрибут, без необходимости использовать функцию RegisterClass. Это может быть необходимо для различных задач, например, для анализа кода или для создания инструментов разработки.

Использование RTTI для сканирования классов

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

1. Создать экземпляр TRttiContext. Однако, стоит отметить, что это действие не является обязательным, так как TRttiContext создаётся автоматически при необходимости.

2. Получить список всех загруженных типов с помощью метода GetTypes класса TRttiContext.

3. Отфильтровать типы, оставив только классы, используя проверку TypeKind = tkClass.

4. Перебрать атрибуты каждого класса и проверить, содержит ли класс искомый атрибут.

Вот пример кода, демонстрирующего данный подход:

program Project3;
{$APPTYPE CONSOLE}
uses
  SysUtils, rtti, typinfo, Unit3;

var
  ctx: TRttiContext;
  t: TRttiType;
  attr: TCustomAttribute;
begin
  try
    for t in ctx.GetTypes do begin
      if t.TypeKind <> tkClass then continue;

      for attr in t.GetAttributes do begin
        if attr is TMyAttribute then begin
          Writeln(t.QualifiedName);
          break;
        end;
      end;
    end;
  finally
    Readln;
  end;
end.

Прежде чем использовать данный код, убедитесь, что у вас определены класс TTest с атрибутом TMyAttribute, как показано ниже:

unit Unit3;
interface
type
  TMyAttribute = class(TCustomAttribute)
  end;

  [TMyAttribute]
  TTest = class(TObject)
  end;

initialization
  TTest.Create().Free();  // Если класс фактически не используется, он не будет скомпилирован
end.

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

Заключение

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

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

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

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

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

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