可是對于初學者來說，面向對象的思想可能并不是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在調用的時候，才遵守了封裝性的原則！當然，這些代碼僅僅是為了體現封裝的思想，而在實際中，可以依個人的習慣來決定是否真的要實現的這么徹底。但是這種思想，應當在腦子里扎根......（未完，待續）。

      更多文章