将面向对象的思想贯穿始终--谈Delphi开发（第一篇）

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

      更多文章