WEB开发网
开发学院软件开发Delphi 将面向对象的思想贯穿始终--谈Delphi开发(第一... 阅读

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

 2006-02-04 13:30:29 来源:WEB开发网   
核心提示: 国内有许多人将Delphi作为首选的开发工具,其原因当然是因为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在调用的时候,才遵守了封装性的原则!当然,这些代码仅仅是为了体现封装的思想,而在实际中,可以依个人的习惯来决定是否真的要实现的这么彻底。但是这种思想,应当在脑子里扎根......(未完,待续)。

  更多文章

Tags:面向 对象 思想

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接