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

COPY来获得这个函数的重用，因为上面的代码是没有好的封装性）。如果有一天你要修改数据装载函数你就必须到处去找那里拷贝了该函数——你也得修改散落在其他地方的代码。于是我进行了再一次的重构，并对代码进行了进一步的封装。

代码如下：

unit uDataSetFieldsInfo;

// Description:单元包括 TDataSetFieldsInfo 类，该类封装了获得数据集子段信息。

// 并提供了在combobox列表显示字段显示信息和获得对应子段名称的方法接口

// Created : wuchhao

// Date : 2003.5

interface

uses Classes, DBClient, StdCtrls;

type

TDataSetFieldsInfo = class

private

FFieldsList: TStrings;

public

constructor Create;

destructor Destroy; override;

procedure GetDataSetFields(Source: TClientDataSet);

procedure ShowFieldsInfo(Target: TComboBox);

function GetFieldsNameByDisplayLabel(DisplayLabel: string): string;

end;

implementation

标签：

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