delphi程序单元基础讲解

Delphi程序单元Object Passal的程序结构很特殊，与其它语言如C++，Object Windows等结构都不同。

一个Delphi程序由多个称为单元的源代码模块组成。

使用单元可以把一个大型程序分成多个逻辑相关的模块，并用来创建在不同程序中使用的程序库。

8.1Program单元Program单元就是Delphi中的项目文件。

Program单元是一个特殊的单元，类似于C语言中的Main程序，即为应用程序的主程序。

一个程序可以有多个单元组成，也可以只有一个Program单元组成，例如前面我们介绍过的DOS窗口程序就只有一个Program单元组成。

下面是一个典型的Program单元：program Project1;uses Forms,Unit1 in'Unit1.pas'{Form1};{$R *.RES}beginApplication.Initialize;Application.CreateForm(TForm1, Form1);Application.Run;end（1）程序首部指定程序名、以及参数等。

（2）Uses语句定义程序用到的所有单元。

标识符为单元的名字，各单元之间用逗好(,)隔开，最后结束用分号(;)。

注意：每个程序总是自动包含System单元，Program单元的Uses部分不能显式指定。

System单元用于实现一些低级的运行时间程序的支持，如文件输入输出（I/O）、字符串操作、浮点运算、动态内存分配等。

另外，Delphi在发行时提供了许多预先定义的单元，在构造程序时可以直接使用。

例如，如果你将一个核对框放进一个窗体，你就自动地使用了StdCtrls单元，因为TCheckBox构件在StdCtrls中定义。

Uses部分列出单元的顺序决定它们初始化的顺序，并影响编译器定位标识符的顺序。

如果两个单元定义了一个相同名字的类型，编译器将总是使用前面那个单元的类型。

（3）程序块由保留字Begin和End括起来的一段代码组成，用于对程序的初始化。

8.2UNIT单元UNIT单元相当于C语言的子程序。

基本上Delphi每个窗体都一个对应的单元。

当你为应用程序创建窗体时，你就创建了一个与该窗体相联系的新单元。

然而，单元也可以独立于窗体而存在。

例如，一个单元可以只包含数学运算程序，而不需要有窗体。

一个单元可以由多个程序共享。

单元的磁盘文件名后缀为.pas。

8.2.1 单元结构不管单元是否与窗体相关，单元的基本结构都是一样的。

UNIT单元由单元首部、接口部分（interface part）、实现部分(implementation part)、可选择的初始化部分（initialization part）、结束部分（finalization part）、end.组成。

8.2.2单元首部单元的首部用保留字Unit开始，后跟单元名。

单元名必须遵循标识符的所有一般原则（不能以数字开头等）。

下面的单元名将是有效的：Unit Rsgl;8.2.3接口部分(Interface)在单元名之后是接口部分。

接口部分用于声明变量、类型、过程和函数等。

在接口部分声明的变量、类型以及过程、函数等是其它使用该单元的程序或单元等都可见的。

接口部分用保留字Interface标明开始，用implemention标明结束。

接口部分只能含有声明部分。

一个单元的接口部分还作为该单元说明文件的起点。

虽然接口部分没有告诉你子程序做什么或变量如何使用，但它正确告诉了你的变量、类型、过程、函数等的名字及其调用方法。

接口部分本身又可以由几个可选的部分组成，分别是单元的USES语句、常量声明部分、类型声明部分、变量声明部分、过程和函数声明部分。

其中常量声明、类型声明、变量声明、过程和函数声明部分用于声明其它使用该单元的单元可以访问的变量、类型、过程和函数等。

而USES语句列出该单元要用到的标准单元和其它单元，用于把外部的已定义的常量、类型、变量、过程或函数引入到本单元中使用。

USES语句紧跟在Interface之后。

8.2.4实现部分单元的第二部分，称为实现部分(Implementation)，主要用于定义接口部分声明过的过程、函数等的代码。

实现部分用保留字implementation标明，总是紧随接口部分之后。

实现部分也可以用USES语句列出该单元要用到的标准单元和其它单元等。

如上面的uses MDIEdit;语句。

实际上，实现部分也可以声明变量、数据类型、过程及函数等。

但是，在实现部分定义的变量、类型、过程、函数等只能由本单元自己使用（private declarations）,使用该单元的其它单元或程序不可见的。

私有定义可以隐藏单元的细节。

8.2.5USES子句USES子句用于访问其它单元。

例如，如果你要让程序来效仿一个电传打字机，可以在USES包含WinCRT,因为WinCrt含有进行这个仿效所需要的程序。

USES WinCRT;Delphi提供了许多预先定义的单元，你可以在程序中直接使用。

实际上，当你将一个新构件放入设计的窗体时，DElphi会自动将该构件的单元放入USES子句中。

例如，如果你将Color Grid放入窗体，则单元ColorGrd就附加在窗体单元的USES子句末尾，从而ColorGRd 单元中接口部分所有定义都是窗体单元可以访问的。

要使用USES子句包含单元中的程序，只要在单元名后加上程序名即可。

例如，如果要在Unit2中访问Unit1中的ComputePayMent函数。

USES子句可以放在接口部分(保留字Interface之后)，也可放在实现部分(保留字Implementation之后)，但是USES子句必须出现在它所有子程序、数据类型或变量被使用之前。

USES子句放在实现部分可以隐藏单元的内部细节，同时可以避免循环引用发生。

8.2.6初始化部分（Initialization）初始化部分是单元的可选部分，主要用于对单元数据的初始化，一般很少用到。

该部分总是在其它程序代码之前运行。

如果一个程序包含多个单元，则在程序的其它部分运行之前，每个单元的初始化代码都会先调用，其顺序是单元显示在Uses语句的顺序。

8.2.7完成部分（Finalization）完成部分(Finalization)是初始化过程的反过程，只要单元有初始化部分，才会有完成部分。

完成部分对应在Delphi1.0中ExitProc和AddEXitProc函数。

完成部分在程序关闭时运行。

任何在单元初始化时获得的资源如分配内存、打开文件等通常都在完成部分释放。

单元完成部分的执行顺序与初始化部分相反。

例如假如程序以A、B、C的顺序初始化单元，则完成过程的顺序是C、B、A。

一旦单元的初始化部分开始执行，就必须保证程序关闭时对应的完成部分执行。

完成部分必须能够处理不完全初始的数据，因为如果产生异常，初始化代码可能不能完全执行。

1．构造构造用建立对象，并对对象进行初始化。

通常，当调用构造时，构造类似一个函数，返回一个新分配的并初始化了的类类型实例。

构造跟一般的方法不同的是，一般的方法只能在对象实例中引用，而构造既可以由一个对象实例引用，也可以直接由类来引用。

当用类来引用类的构造时，实际上程序做了以下工作：（1）首先在堆中开辟一块区域用于存贮对象。

（2）然后对这块区域缺省初始化。

初始化，包括有序类型的字段清零，指针类型和类类型的字段设置为Nil，字符串类型的字段清为空等。

（3）执行构造中用户指定的动作。

（4）返回一个新分配的并初始化了的类类型实例。

返回值的类型必须就是类的类型。

当你用在对象实例中引用类的构造时，构造类似一个普通的过程方法。

这意味着一个新对象还没有被分配和初始化，调用构造不返回一个对象实例。

相反，构造只对一个指定的对象实例操作，只执行用户在构造语句中指定的操作。

例如，在创建一个新的对象时，尽管还没有对象实例存在，仍然可以调用类的构造，程序示例如下：typeTShape = class(TGraphicControl)privateFPen: TPen;FBrush: TBrush;procedure PenChanged(Sender: TObject);procedure BrushChanged(Sender: TObject);publicconstructor Create(Owner: TComponent);override;destructor Destroy;override; ...end;constructor TShape.Create(Owner: TComponent);begininherited Create(Owner);{ Initialize inherited parts }Width := 65;{ Change inherited properties }Height := 65;FPen := TPen.Create;{ Initialize new fields }FPen.OnChange := PenChanged;FBrush := TBrush.Create;FBrush.OnChange := BrushChanged;end;构造的第一行是Inherited Create(Owner),其中Inherited是保留字，Create是祖先类的构造名，事实上大多数构造都是这么写的。

这句话的意思是首先调用祖先类的构造来初始化祖先类的字段，接下来的代码才是初始化派生类的字段，当然也可以重新对祖先类的字段赋值。

用类来引用构造时，程序将自动做一些缺省的初始化工作，也就是说，对象在被创建时，其字段已经有了缺省的值。

所有的字段都被缺省置为0(对于有序类型)、nil(指针或类类型)、空（字符串）、或者 Unassigned (变体类型)。

除非想在创建对象时赋给这些字段其它值，否则在构造中除了Inherited Create(Owner)这句外，不需要写任何代码。

如果在用类来引用构造的过程中发生了异常，程序将自动调用析构来删除还没有完全创建好的对象实例。

效果类似在构造中嵌入了一个try協inally语句，例如：try...{ User defined actions }except{ On any exception }Destroy;{ Destroy unfinished object }raise;{ Re-raise exception }end;构造也可以声明为虚拟的，当构造由类来引用时，虚拟的构造跟静态的构造没有什么区别。

当构造由对象实例来引用时，构造就具有多态性。

可以使用不同的构造来初始化对象实例。

2．析构析构的作用跟构造正相反，它用于删除对象并指定删除对象时的动作，通常是释放对象所占用的堆和先前占用的其它资源。