Delphi库单元结构

单元(unit)是组成Pascal 程序的单独的源代码模块，单元由函数和过程组成，这些函数和过程能被主程序调用。

一个标准的单元文件格式如下：

unit Unit1； //单元头

interface

uses { 单元列表 } //公有

{接口部分}        //公有

implementation

uses {单元列表}   //私有

{实现部分 }       //私有

initialization

{初始化部分}

finalization

{结束部分}

end

一个单元至少要由以下三部分组成：.

一个unit 语句，每一个单元都必须在开头有这样一条语句，以标识单元的名称，单元的名称必须和文件名相匹配。例如，如果有一个文件名为A1，则unit 语句可能是：

unit A1

interface 部分，在unit 语句后的源代码必须是interface 语句。在这条语句和implementation 语句之间是能被程序和其它单元所共享的信息。一个单元的interface 部分是声明类型、常量、变量、过程和函数的地方，这些都能被主程序和其它单元调用。这里只能有

声明，而不能有过程体和函数体。interface 语句应当只有一个单词且在一行：

Interface

Interface部分又分为多个可选部分，包括单元引用部分（uses）、类型声明部分（type）、常量声明部分（const）、变量声明部分（var）以及过程和函数声明部分（function 和 procedure）。

其程序示例如下：

unit Unit1;

interface

uses                          //单元引用部分

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;

type                          //类型声明部分

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const                          //常量声明部分

PI=3.1415926;

var                            //变量声明部分

Form1: TForm1;

X: integer;

Function Mytest(X:string):String;stdcall;external 'test_dll.dll';                //过程和函数声明部分

implementation

{$R *.dfm}

implementation 部分，它在interface 部分的后面。Implementation部分又分为两部分：一部分是声明部分，另一部分是对于在Interface部分中声明过的程序和函数的定义。

声明部分包括单元、常量、数据类型、变量、过程和函数的 声明，这与interface部分相类似，所不同的是在implementation部分声明的单元、常量、数据类型、变量、过程和函数只对本单元而言是 公用的和可见的，其他单元如果要引用该单元的话是不能访问它们的。而在implementation部分生命的过程和函数不需要遵循先声明后定义的规则， 可以直接写出过程和函数的定义。

implementation 语句只有一个单词并且在一行上：

implementation

一个单元能可选地包含其它两个部分：

initialization 部分，在单元中它放在文件结尾前，它包含了用来初始化单元的代码，它在主程序运行前运行并只运行一次。

finalization 部分，在单元中它放在initialization 和end 之间。

注意如果几个单元都有initialization/finalization 部分，则它们的执行顺序与单元在主程序的users 子句中的出现顺序一致。不要使initialization/finalization 部分的代码依赖于它们的执行顺序，因为这样的话主程序的uses 子句只要有小小的修改，就会导致程序无法通过编译。

1．uses 子句

users 子句在一个程序或单元中用来列出想要包含进来的单元。例如，如果有一个程序名为FooProg，它要用到在两个单元UnitA 和UnitB 中的函数和类型，正确的uses 声明应该这样：

Program FooProg;

uses UnitA,UnitB;

单元能有两个uses 子句，一个在interface 部分，一个在implementation 部分。这里有一个例子：

Unit FooBar

Interface

Uses BarFoo;

{在这里进行全局声明 }

implementation

uses BarFly;

{在这里进行局部声明 }

initiallization

{在这里进行单元初始化 }

finalization

{在这里进行退出操作 }

end.

2．循环单元引用

读者也许经常会碰到这样的情况，在UnitA 中调用UnitB 并在UnitB 中调用UnitA，这称为循环单元引用。循环单元引用的出现表明了程序设计有缺陷，应该在程序中避免使用循环单元引用。比较好的解决方法是把UnitA 和UnitB 共有的代码移到第三个单元中。然而，有时确实需要用到循环单元引用，这时就必须把一个uses 子句移到implementation 部分，而把另一个留在interface 部分，这样就能解决问题。