发信人: zhangyan (生命中不能承受之弱), 信区: BorlandDev
标  题: 将面向对象的思想贯穿始终--谈Delphi开发（第一篇） 
发信站: 哈工大紫丁香 (2001年07月10日11:34:30 星期二), 站内信件

将面向对象的思想贯穿始终--谈Delphi开发（第一篇）      
关键字:
面向对象 Delphi  贴文时间
2001-7-9 20:46:53  文章类型: 
原作  给贴子投票 
投票  
  Musicwind    原作  出处:  
  




      国内有许多人将Delphi作为首选的开发工具。其原因当然是因为Delphi给开
发者提供了诸多特性：面向对象的开发，可视化界面设计，组件丰富，多平台的可
移植性(Delphi6的新特性）。   

      可是对于初学者来说，面向对象的思想可能并不是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在调用的时候，
才遵守了封装性的原则！当然，这些代码仅仅是为了体现封装的思想，而在实际中
，可以依个人的习惯来决定是否真的要实现的这么彻底。但是这种思想，应当在脑
子里扎根......（为完，待续）。



--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.170.172]