Используя модуль 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. Пожалуйста, дайте мне знать, если потребуется дополнительная информация. Вся помощь будет оценена.