可是对于初学者来说，面向对象的思想可能并不是delphi给其带来的最大的感受。而可视化的界面设计，丰富多样的可用组件反而给其留下最深刻难忘的印象。由此带来的严重的后果是，初学者往往在很长一段时间里，只将注意力集中在delphi提供的现有的vcl组件的使用上，而忽视去思考面向对象的思想对于delphi的整个组件构架体系所蕴含的意义。
下面的一段代码，包含了一个最常见的，也是初学者最易犯的一个错误，这个错误虽然不是语法错误，但是却显露出使用者的面向对象的思想还有待加强：
var
form1: tform1;
implementation
{$r *.dfm}
procedure tform1.button1click(sender: tobject);
begin
showmessage(form1.caption); // <-- 这里的form1的使用就有些问题。
end;
这样的代码，粗看看好像没有什么错。但是，这里form1的出现就有些说不过去了。明明这里的代码，写的是tform1的buttonclick方法的实现，而form1作为tform1类的一个实例，居然被写死到类的实现中，难道不是有些概念混乱吗?要改成符合面向对象思想的，也很简单，可以有两种写法：
1. showmessage(self.caption); // <-- 这种写法非常明确，即将要show的信息是类的当前实例的caption
2. showmessage(caption); // <-- 这里的写法和上述的雷同，省略了关键字self；
面向对象思想的三大核心内容是封装，继承，多态。而上述例子暴露的问题就是封装的问题。类似的例子还有：
var
form1: tform1;
......
var
form2: tform2;
procedure tform1.button1click(sender: tobject);
begin
form2.show; // <-- 作为一个全局的变量，form2在这里的使用同样让人觉得混乱。
end;
上述的例子，可能更具有普遍性吧，对于大多数情况，在一个工程中，tform1，和tform2只可能各只有一个实例，所以这样的代码也算马马虎虎通过。但是从严格意义上来说，也是不符合封装性的要求。参照如下代码：
type
tform1 = class(tform)
button1: tbutton;
procedure button1click(sender: tobject);
private
{ private declarations }
fnext: tform;
public
{ public declarations }
property nextform: tform read fnext write fnext;
end;
var
form1: tform1;
implementation
uses unit2;
{$r *.dfm}
procedure tform1.button1click(sender: tobject);
begin
if assigned(fnext) then
tform2(fnext).show;
end;
end.
// 以下是工程文件中的内容：
program project1;
uses
forms,
unit1 in unit1.pas {form1},
unit2 in unit2.pas {form2};
{$r *.res}
begin
application.initialize;
application.createform(tform1, form1);
application.createform(tform2, form2);
form1.nextform := form2; // <-- 增加这么一句，勉强让代码符合封装的要求了
application.run;
end.
将form2指针，作为form1的一个属性，传递给form1，这样，form1在调用的时候，才遵守了封装性的原则！当然，这些代码仅仅是为了体现封装的思想，而在实际中，可以依个人的习惯来决定是否真的要实现的这么彻底。但是这种思想，应当在脑子里扎根......（未完，待续）。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
