如何判断某个对象是否有某个属性(public级别的属性)

[肥仔胧]

GetPropInfo可以得到某个对象的Published出来的属性,但是无法判断Public级别的属性
现在我想判断的是某个对象是否有某个属性,该属性却又是public级别的,请问要如何判断呢?

[肥仔胧]

当如果用眼睛找不到的时候该怎么办呢?

[Harryfin]

试试直接从vmt入手不知道行不行。

[肥仔胧]

没有概念了,即使从VMT入手,当你要实现如SetPropinfo时,又该如何?

[hsmserver]

属性必须定义在published段，才行，貌似public没有

[hongqi162]

GetPropInfo是根据类的RTTI指针和属性的名称字符串，返回属性的信息TPropInfo的指针

[肥仔胧]

如果没有该怎么处理呢?

[madyak]

不太清楚，如果是我，就找源码，用眼睛找。

[肥仔胧]

顶

[constantine]

太高深了

[肥仔胧]

等待高手

[肥仔胧]

没有什么方法了吗

[cncharles]

VMT是可以解决的吧, 好像Delphi6 开发人员指南中有相关的代码, 楼主找找.

[肥仔胧]

ding

[勇者无敌_]

procedure GetClassProperties(AClass: TClass; AStrings: TStrings);
var
PropCount, I: SmallInt;
PropList: PPropList;
PropStr: string;
begin
PropCount := GetTypeData(AClass.ClassInfo).PropCount;
GetPropList(AClass.ClassInfo, PropList);
for I := 0 to PropCount - 1 do
begin
case PropList[I]^.PropType^.Kind of
tkClass : PropStr := '[Class]';
tkMethod : PropStr := '[Method]';
tkSet : PropStr := '[Set] ';
tkEnumeration: PropStr := '[Enum] ';
else
PropStr := '[Field] ';
end;
PropStr := PropStr + PropList[I]^.Name;
PropStr := PropStr + ': ' + PropList[I]^.PropType^.Name;
AStrings.Add(PropStr);
end;
FreeMem(PropList);
end;