Перечислить все классы Delphi, реализующие данный интерфейс?

Question

С новым расширенным RTTI в Delphi 2010 приложение Delphi (во время выполнения) создает список всех классов, реализующих данный интерфейс?

Answer 1

Технически да, если интерфейс имеет идентификатор GUID, а классы, о которых вы заботитесь, находятся в разделах интерфейса устройств.

Модуль RTTI еще не имеет API для описания всех интерфейсов, которые реализует класс, но данные находятся в информации типа.

идентификатор GUID для типа интерфейса может быть получен из этого выражения:

GetTypeData(TypeInfo(ITheInterface))^.Guid 

или:

ctx: TRttiContext; 
// ... 
(ctx.GetType(TypeInfo(ITheInterface)) as TRttiInterfaceType).GUID 

Класса типа экземпляра, то можно проверить с помощью TClass.GetInterfaceEntry(IID) - если она возвращает ненулевой -но, класс реализует интерфейс.

Все классы, объявленные в разделах интерфейса блоков, могут быть получены через TRttiContext.GetTypes.

Написание фактического кода итерации и извлечения оставлено в качестве упражнения для читателя.