Обнаружив класс, где свойство первый опубликованный с несколькими уровнями наследования

Question

Использование устройства Typinfo, легко перечислить свойства, как показано в следующем фрагменте:

procedure TYRPropertiesMap.InitFrom(AClass: TClass; InheritLevel: Integer = 0); 
var 
    propInfo: PPropInfo; 
    propCount: Integer; 
    propList: PPropList; 
    propType: PPTypeInfo; 
    pm: TYRPropertyMap; 
    classInfo: TClassInfo; 
    ix: Integer; 

begin 
    ClearMap; 

    propCount := GetPropList(PTypeInfo(AClass.ClassInfo), propList); 
    for ix := 0 to propCount - 1 do 
    begin 
    propInfo := propList^[ix]; 
    propType := propInfo^.PropType; 

    if propType^.Kind = tkMethod then 
     Continue; // Skip methods 
    { Need to get GetPropInheritenceIndex to work 
    if GetPropInheritenceIndex(propInfo) > InheritLevel then 
     Continue; // Dont include properties deeper than InheritLevel 
    } 
    pm := TYRPropertyMap.Create(propInfo.Name); 
    FList.Add(pm); 
    end; 
end; 

Однако то, что мне нужно, чтобы фигура из точного класса, из которого наследуется каждое свойство. Например, в TControl свойство Tag происходит от TComponent, что дает ему глубину наследования 1 (0 - свойство, объявленное в самом TControl, такое как Cursor).

Вычисление глубины наследования легко, если я знаю, какой класс сначала определил свойство. Для моих целей везде, где свойство сначала получило опубликованную видимость, это место, где оно впервые появилось.

Я использую Delphi 2007. Пожалуйста, дайте мне знать, если требуется более подробная информация. Вся помощь будет оценена.

Answer 1

Это работает для меня.
Затруднение получает родитель TypeInfo из пропущенных через ребенок TypeInfo

procedure InheritanceLevel(AClassInfo: PTypeInfo; const AProperty: string; var level: Integer); 
var 
    propInfo: PPropInfo; 
    propCount: Integer; 
    propList: PPropList; 
    ix: Integer; 
begin 
    if not Assigned(AClassInfo) then Exit; 
    propCount := GetPropList(AClassInfo, propList); 
    for ix := 0 to propCount - 1 do 
    begin 
    propInfo := propList^[ix]; 
    if propInfo^.Name = AProperty then 
    begin 
     Inc(level); 
     InheritanceLevel(GetTypeData(AClassInfo).ParentInfo^, AProperty, level) 
    end; 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
    level: Integer; 
begin 
    level := 0; 
    InheritanceLevel(PTypeInfo(TForm.ClassInfo), 'Tag', level); 
end; 

Answer 2

Я не знаю, если вы можете найти это, используя доступную RTTI в Delphi 2007. Большинство свойства в дереве TComponent объявлены в защищенный в первоначальном классе, а затем обновленный как опубликован ниже, и у вас есть только RTTI для опубликованных членов.

Я был прав, чтобы описать что-то очень похожее на решение Ливена, когда увидел, что он избил меня. Это найдет первый класс, в котором было опубликовано свойство, если это то, что вы ищете, но не найдет, где было объявлено свойство. Вам нужен расширенный RTTI Delphi 2010, если вы этого хотите.