可是對于初學(xué)者來說，面向?qū)ο蟮乃枷肟赡懿⒉皇荄elphi給其帶來的最大的感受。而可視化的界面設(shè)計，豐富多樣的可用組件反而給其留下最深刻難忘的印象。由此帶來的嚴重的后果是，初學(xué)者往往在很長一段時間里，只將注意力集中在Delphi提供的現(xiàn)有的VCL組件的使用上，而忽視去思考面向?qū)ο蟮乃枷雽τ贒elphi的整個組件構(gòu)架體系所蘊含的意義。

     下面的一段代碼，包含了一個最常見的，也是初學(xué)者最易犯的一個錯誤，這個錯誤雖然不是語法錯誤，但是卻顯露出使用者的面向?qū)ο蟮乃枷脒€有待加強：

var
  Form1: TForm1;

implementation

{$R *.dfm}

PRocedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Form1.Caption); // <-- 這里的Form1的使用就有些問題。
end;

這樣的代碼，粗看看好像沒有什么錯。但是，這里Form1的出現(xiàn)就有些說不過去了。明明這里的代碼，寫的是TForm1的ButtonClick方法的實現(xiàn)，而Form1作為TForm1類的一個實例，居然被寫死到類的實現(xiàn)中，難道不是有些概念混亂嗎?要改成符合面向?qū)ο笏枷氲?，也很簡單，可以有兩種寫法：

 1. ShowMessage(Self.Caption); // <-- 這種寫法非常明確，即將要Show的信息是類的當(dāng)前實例的Caption

 2. ShowMessage(Caption); // <-- 這里的寫法和上述的雷同，省略了關(guān)鍵字Self；

    面向?qū)ο笏枷氲娜蠛诵膬?nèi)容是封裝，繼承，多態(tài)。而上述例子暴露的問題就是封裝的問題。類似的例子還有：

    var

       Form1: TForm1;

      ......

     var

       Form2: TForm2;

    procedure TForm1.Button1Click(Sender: TObject);

    begin

       Form2.Show;  // <-- 作為一個全局的變量，F(xiàn)orm2在這里的使用同樣讓人覺得混亂。

    end;

    上述的例子，可能更具有普遍性吧，對于大多數(shù)情況，在一個工程中，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.

// 以下是工程文件中的內(nèi)容：

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，這樣，F(xiàn)orm1在調(diào)用的時候，才遵守了封裝性的原則！當(dāng)然，這些代碼僅僅是為了體現(xiàn)封裝的思想，而在實際中，可以依個人的習(xí)慣來決定是否真的要實現(xiàn)的這么徹底。但是這種思想，應(yīng)當(dāng)在腦子里扎根......（未完，待續(xù)）。

      更多文章