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

页面导航:首页 > 软件编程 > Delphi > 将面向对象的思想贯穿始终--谈Delphi开发(第一篇

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

来源: 作者: 时间:2016-02-05 11:47 【

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

 

 

 

 

      国内有许多人将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在调用的时候,才遵守了封装性的原则!当然,这些代码仅仅是为了体现封装的思想,而在实际中,可以依个人的习惯来决定是否真的要实现的这么彻底。但是这种思想,应当在脑子里扎根......(未完,待续)。

      ?author=Musicwind">更多文章

 

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<