首先要让数据对象的字段和界面显示的控件Name同名，然后通过GetPropValue根据属性名称获取属性值，SetPropValue可以设置属性值。同时，使用Form1.Components[i]获取界面控件，通过 is 关键字判断该控件的类型。
在如果数据对象的属性是一个Class对象，则GetPropValue返回的是该对象的地址，所以要通过转换得到具体数据。例如：
v := GetPropValue(Model, 'date', true);
TXSDateTime dd := TXSDateTime(Integer(v));
将dd的位置指向v所表示的地址区。
本文地址：http://com.8s8s.com/it/it4586.htm