[fpc-pascal] List published properties of a class

[Joao Morais]

Em 09/02/14 18:05, Joao Morais escreveu:
>
> Hello list. I need to list all published properties declared in a 
> class, iow, removing properties inherited from the parent.
>
> Up to now I am iterating typinfo.GetPropList, starting at:
>
> GetTypeData(PTypeInfo(TheClass.ClassParent.ClassInfo))^.PropCount;
>
> and it works (fpc 2.6.2). TheClass will never receive TObject. Is this 
> the right way? Will such piece of code continue working in future 
> versions of the rtl?

Resurrecting this old message. The point is: TObject.ClassInfo is and 
will always be a TypeInfo pointer? If so, out of curiosity, why declare 
it as Pointer? What comes to mind is circular reference, layer 
violation, something like this.