转载一篇文章
假设我要做一个简单的个人通讯录管理软件，很显然，整个软件分为两部分：一部分是面象用户的，也就是所谓界面部分，我可以提供四个按钮（分别为“添加”、“删除”、“修改”、“查找”）和一个编辑框（显示通讯录信息和接受用户输入）用于和用户交互；另一部分是功能化的，也就是软件内部的对于通讯录的存取操作。
于是，有了一个TAddrBook类，它是对功能化部分的抽象。
TAddrBook = class
private
//一些私有成员
public
constructor Create;
destructor Destroy;override;
GetCurIndex: Integer;
FindRecord(strString): Integer;
GetRecord(nIndex:Integer): String;
SetRecord(nIndex:integer;
strRec:String): Boolean;
AddRecord(strRec:String): Boolean;
DelRecord(nIndex): Boolean;
//其它共有成员函数
end;
私有成员之所以无法确定，主要是取决于这个类的实现。
如此，可以将对通讯录的存取操作的逻辑封装。而界面部分的代码不会涉及到这些存取逻辑。界面部分代码如下：
var
Form1: TForm1;
AddrBook: TAddrBook;
nCurRec: Integer;
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
AddrBook := TAddrBook.Create;
nCurRec := AddrBook.GetCurIndex;
end;
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
AddrBook.Free;
end;
//添加按钮
procedure TForm1.Button1Click(Sender: TObject);
begin
if not AddrBook.AddRecord(memo1.Text) then
ShowMessage("error");
end;
//删除按钮
procedure TForm1.Button2Click(Sender: TObject);
begin
if not AddrBook.DelRecord(nCurRec) then
ShowMessage("error");
end;
//修改按钮
procedure TForm1.Button3Click(Sender: TObject);
begin
if not AddrBook.SetRecord(nCurRec, memo1.Text) then
ShowMessage("error");
end;
//查找按钮
procedure TForm1.Button4Click(Sender: TObject);
begin
memo1.Text := AddrBook.GetRecord(FindRecord(memo1.Text));
end;
以上界面部分的代码，不涉及任何存取逻辑，每个模块的代码简单，易懂，便于维护。而实际上，该通讯录是使用数据库保存还是用文本文件来保存，界面代码都不知道；使用数据库的话，是通过ODBC还是ADO还是BDE访问数据库，界面代码也不知道。实际上，这些存取逻辑的东西取决于TAddrBook类的实现，TAddrBook类的实现可以单独的放在一个.pas文件中，对TAddrBook类的实现的任何更改，都不会影响界面部分。维护代码的时候，将更改局限于某一个模块中的做法是非常明智的。
