die Klasse zu entdecken, wo ein Objekt zunächst mit mehreren Ebenen der Vererbung

Question

Mit der Typinfo Einheit veröffentlicht wird, ist es einfach, Eigenschaften aufzuzählen, wie im folgenden Ausschnitt gesehen:

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; 

Aber was ich brauche, ist zu Figur aus der genauen Klasse, aus der jede Eigenschaft erbt. Zum Beispiel in TControl, die Tag-Eigenschaft kommt von TComponent, was ihm eine Vererbungstiefe von 1 gibt (0 ist eine Eigenschaft, die in TControl selbst deklariert wird, wie zum Beispiel Cursor).

Berechnung der Vererbung Tiefe ist einfach, wenn ich weiß, welche Klasse zuerst die Eigenschaft definiert. Für meine Zwecke ist, wo ein Objekt zuerst veröffentlicht Sichtbarkeit gewonnen hat, wo es zuerst erschien.

Ich benutze Delphi 2007. Bitte lassen Sie mich wissen, wenn mehr Details erforderlich sind. Alle Hilfe wird geschätzt.

Answer 1

Das funktioniert für mich.
Der Kernpunkt ist immer die Typeinfo der Eltern aus dem Durch Kind weitergegeben 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

Ich weiß nicht, ob Sie dies mit der RTTI in Delphi 2007. Die meisten Objekte im TComponent Baum als deklariert finden geschützt in der ursprünglichen Klasse, und dann als veröffentlicht weiter unten reklamiert, und Sie haben nur RTTI für veröffentlichte Mitglieder.

Ich hatte recht, etwas zu beschreiben, das Lievens Lösung sehr ähnlich ist, als ich sah, dass er mich dazu schlagen würde. Dies wird die erste Klasse finden, in der die Eigenschaft veröffentlicht wurde, wenn Sie das suchen, aber sie wird nicht finden, wo die Eigenschaft ursprünglich deklariert wurde. Wenn Sie das möchten, brauchen Sie die erweiterte RTTI von Delphi 2010.