Использование RTTI для получения полного списка классов и экземпляров в модулях Delphi

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

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

Получение списка классов, определенных в модуле

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

program FindClassesDeclaredInUnit;

{$APPTYPE CONSOLE}

uses
  SysUtils, Rtti, MyTestUnit in 'MyTestUnit.pas';

procedure ListClassesDeclaredInNamedUnit(const UnitName: string);
var
  Context: TRttiContext;
  t: TRttiType;
  DeclaringUnitName: string;
begin
  Context := TRttiContext.Create;
  for t in Context.GetTypes do
    if t.IsInstance then
    begin
      DeclaringUnitName := t.AsInstance.DeclaringUnitName;
      if SameText(DeclaringUnitName, UnitName) then
        Writeln(t.ToString, ' ', DeclaringUnitName);
    end;
end;

begin
  ListClassesDeclaredInNamedUnit('MyTestUnit');
  Readln;
end.

В этом примере создается контекст RTTI, который перебирает все типы, доступные в системе. Если тип является экземпляром класса (IsInstance), то извлекается имя модуля, в котором он определен (DeclaringUnitName), и сравнивается с именем интересующего модуля.

Получение списка экземпляров классов

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

Пример кода для получения имени модуля

Для получения имени модуля, в котором определен тип, можно использовать свойство QualifiedName объекта TRttiType. Пример функции, которая извлекает имя модуля:

function GetUnitName(lType: TRttiType): string;
begin
  Result := StringReplace(lType.QualifiedName, '.' + lType.Name, '', [rfReplaceAll]);
end;

Этот код можно использовать для перебора типов и вывода имен классов, определенных в определенном модуле:

procedure Test;
var
  t: TRttiType;
begin
  for t in TRttiContext.Create.GetTypes do
    if SameText('System.SysUtils', GetUnitName(t)) and (t.IsInstance) then
      Writeln(t.Name);
end;

Заключение

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

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

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

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

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

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