数据库编程中界面与数据对象自动赋值的实现

rainsoft

首先要让数据对象的字段和界面显示的控件Name同名，然后通过GetPropValue根据属性名称获取属性值，SetPropValue可以设置属性值。同时，使用Form1.Components[i]获取界面控件，通过 is 关键字判断该控件的类型。

在如果数据对象的属性是一个Class对象，则GetPropValue返回的是该对象的地址，所以要通过转换得到具体数据。例如：

v := GetPropValue(Model, ´date´, true);

TXSDateTime dd := TXSDateTime(Integer(v));

将dd的位置指向v所表示的地址区。