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

最新推荐文章于 2024-04-25 14:11:56 发布

zgqtxwd

最新推荐文章于 2024-04-25 14:11:56 发布

阅读量225

点赞数

分类专栏： delphi 文章标签： delphi button forms 开发工具 class 平台

delphi 专栏收录该内容

758 篇文章 0 订阅

订阅专栏

国内有许多人将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; // <-- 增加这么一句，勉强让代码符合封装的要求了