XE6 c++builder 设置 font size GetPropInfo SetOrdProp

PPropInfo ppi;

PTypeInfo pti;

TTypeKinds ttk;

TRttiContext context;

TRttiType *rttiType

    TObject* objTemp;

    objTemp = GetObjectProperty(this, "Font");

    if (objTemp)

    {

        PPropInfo ppi;

        ppi = GetPropInfo(objTemp->ClassType(), "Size");

        if (ppi && (*ppi->PropType)->Kind == tkInteger)

            SetOrdProp(objTemp, ppi, );

    }

cb6要自己写函数GetObjectProperty，XE6里系统自带在Datasnap.Provider.hpp中定义了

TObject* GetObjectProperty(TObject *AObject, const String APropName)

{

    PPropInfo ppi;

    PTypeInfo pti;

    ppi = GetPropInfo(AObject->ClassType(), APropName);

    if (ppi && (*ppi->PropType)->Kind == tkClass)

        return GetObjectProp(AObject, ppi);

    return NULL;

}