正在阅读：如何将界面代码和功能代码分离如何将界面代码和功能代码分离

2004-02-14 09:34 出处：PConline 作者：Nicrosoft 责任编辑：zwg

如此，可以将对通讯录的存取操作的逻辑封装。而界面部分的代码不会涉及到这些存取逻辑。界面部分代码如下： var Form1: TForm1; AddrBook: TAddrBook; nCurRec: Integer; implementation procedure TForm1.FormCreate(Sender: TObject); begin AddrBook := TAddrBook.Create; nCurRec := AddrBook.GetCount; 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(AddrBook.FindRecord(memo1.Text)); end; 以上界面部分的代码，不涉及任何存取逻辑，每个模块的代码简单，易懂，便于维护。而实际上，该通讯录是使用数据库保存还是用文本文件来保存，界面代码都不知道；使用数据库的话，是通过ODBC还是ADO还是BDE访问数据库，界面代码也不知道。实际上，这些存取逻辑的东西取决于TAddrBook类的实现，TAddrBook类的实现可以单独的放在一个.pas文件中，对TAddrBook类的实现的任何更改，都不会影响界面部分。维护代码的时候，将更改局限于某一个模块中的做法是非常明智的。