Решение проблемы использования RTTI в Delphi 10.3.3 для сбора наследников класса

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

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

Проблема

Разработчик столкнулся с проблемой сбора всех наследников базового класса TClass с помощью RTTI в версии Delphi 10.3.3. Примененный код не собирает информацию о наследниках, так как свойство typ.ClassType.QualifiedClassName возвращает тип TRTTIInstanceType для всех элементов списка. В то же время, свойство typ.QualifiedName содержит правильные названия типов. Проблема заключается в том, как получить TClass по названию типа, если typ.ClassType представляет собой сам запись.

Описание контекста

В контексте было предложено использовать не RTTI, а стандартные методы ClassType и ClassParent, что, по мнению комментатора, является более простым и быстрым решением. В качестве примера приводится реализация метода InheritsFrom класса TObject.

Подтвержденное решение

Для решения проблемы необходимо проверить, является ли typ объектом типа TRttiInstanceType, и если да, то использовать свойство MetaclassType для доступа к TClass наследника.

for typ in list do
  if typ is TRttiInstanceType then
    if (ancestorClass_ = nil) or TRttiInstanceType(typ).MetaclassType.InheritsFrom(ancestorClass_) then
      descendantClasses_.Add(TRttiInstanceType(typ).MetaclassType);

Пример кода

type
  TClassList = TList<TClass>;

class procedure TClassUtility.collectDescendantClasses(ancestorClass_: TClass; descendantClasses_: TClassList);
var
  ctx: TRttiContext;
  list: TArray<TRttiType>;
  typ: TRttiType;
begin
  ctx := TRttiContext.Create;
  try
    list := ctx.GetTypes;
    for typ in list do
    begin
      if typ is TRttiInstanceType then
      begin
        if (ancestorClass_ = nil) or TRttiInstanceType(typ).MetaclassType.InheritsFrom(ancestorClass_) then
          descendantClasses_.Add(TRttiInstanceType(typ).MetaclassType);
      end;
    end;
  finally
    ctx.Free;
  end;
end;

Заключение

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

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

Разработчик сталкивается с проблемой использования RTTI в Delphi 10.3.3 для сбора наследников класса и ищет эффективное решение.

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

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

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