如何将界面代码和功能代码分离（基于Delphi/VCL） (100分)

如何将界面代码和功能代码分离（基于Delphi/VCL）
Nicrosoft(nicrosoft@sunistudio.com)—— 2001.7.14
http://www.sunistudio.com/nicrosoft
东日文档：http://www.sunistudio.com/asp/sunidoc.asp

　　很多朋友看了上次我写的“创建良好设计的代码（基于Delphi/VCL）”后，对我说
感觉上可以接受其中的观点，但似乎说得太简单，不够具体；也有的朋友对其中的一个
小例子有些异议。因此便有了此文。
　　上次，我举的例子是这样的：假设要从某处获得一个字符串列表，然后显示于
TListBox 中，我所推崇的代码是：
　　ObjectXXX := TObjectXXX.Create;
　　ListBox1.Items := ObjectXXX.GetStringList;
　　ObjectXXX.Free;
　　的确，我承认，单纯从这三行代码来看，似乎有了“滥用对象”之嫌。也许是例子
过于简单，给人的感觉是 TObjectXXX 只有 GetStringList 这一个 public 成员函数，
如果真的这样的话，那可真是“滥用对象”了。类是对对象的抽象，而对象是由状态和
操作（也就是数据和对数据的操作）的集合组成。因此，没有状态的对象不是对象！没
有私有数据成员的类的设计是失败的设计（那不是类，而是接口了）。
　　好，下面我就举一个详细的例子来说明，如何将界面代码和功能代码分离。 假设
我要做一个简单的个人通讯录管理软件，很显然，整个软件分为两部分：一部分是面象
用户的，也就是所谓界面部分，我可以提供四个按钮（分别为“添加”、“删除”、
“修改”、“查找”）和一个编辑框（显示通讯录信息和接受用户输入）用于和用户交
互；另一部分是功能化的，也就是软件内部的对于通讯录的存取操作。
　　于是，有了一个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类的实现的任何更改，都不会影响界面部分。
维护代码的时候，将更改局限于某一个模块中的做法是非常明智的。

very good

嗯，不错，有没有关于多层应用里封装各个数据源成为数据对象的例子？

还是设计模式的问题。好好学习、好好思考，一切搞定。

不错
希望看到 更为深入的探讨

好。

呵呵，Nicrosoft跑大富翁布道来了。

学着点。。。

好好学学。

好是好，不过现实不会如此简单。一个复杂的应用，有时候要抽象一个类，非常困难，
或者说抽象一个类还好，实现起来往往又不得不考虑界面问题，因为你不知道用户到底
执行了什么操作！

已经换行了，谢谢各位提醒

只是个度的问题，要根据实际来把握！！（废话）

这就是将界面代码和功能代码分离呀，以前听过但不知到是怎样的，现在明白了一点。
以前总是要实现什么功能，就写一段代码，最多把一些全局变量，结构定义写在一个
全局的unit中，根本没有想到要自己写一个类，看了上面的文章，你这种写法还真是
简捷，以后维护也真是方便了，谢谢了。
BTW:kthy大侠说的我以前也好想碰到过，有好的解决方法吗？

支持

如果 TAddrBook 里加一个procedure show_record() 到一个控件，比如 StringGird 里，要
怎么实现呢？

go nicrosoft:
"有私有数据成员的类的设计是失败的设计（那不是类，而是接口了）" protected数据不
行吗？接口是连public数据都不能有的吧!请指教!

to 伊天仇：
数据所处于的保护级别，要看具体项目情况而言，只是一般来说，都放在private而加以保护，
没有人说不允许放在public或protected，只是那样一般来说不利于封装（将接口与实现分离）
而已。
另外，接口是没有数据的。

理解!谢了!

多人接受答案了。