代码重构——之获得封装性DELPHI编码实例(8)

2008-04-10 02:57:26来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

有了足够合适的粒度和好的封装性。TdataSetFieldsInfo 很好的把组合框与变化的数据隔离开来,最终提高了代码的复用程度,同时减少了FORM类的职责和 magic number硬编码的量。下面是新的代码:

首先在FORM中声明TdataSetFieldsInfo类的一个引用。

……

FORM创建的时候调用:

FFieldsInfo := TDataSetFieldsInfo.Create;

FFieldsInfo.GetDataSetFields(cdMaster);

FFieldsInfo.ShowFieldsInfo(ComboBox1);

这时候我的过滤器设置就变成了:

if ComboBox1.Text <> '''''''' then

begin

ClientDataSet.Filtered := False;

ClientDataSet.Filter := FFieldsInfo.GetFieldsNameByDisplayLabel(ComboBox1.Text) '''''''''''''''' Edit2.Text '''''''''''''''';

ClientDataSet.Filtered := True;

end;

通过调用

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:NeHe的opengl教程delphi版(7)----滤波

下一篇:用 Delphi 实现报表的横向分组打印