本词条缺少概述图，补充相关内容使词条更完整，还能快速升级，赶紧来编辑吧！- 中文名
- 程序单元
- 外文名
- Program module
Object Passal的程序结构很特殊，与其它语渗主腊言如C++，Object踏府棵 Wi市轿ndows等结构都不承蜜试炒担汗寒同。一个De阿旬旋lphi程序由多个称为单元的源代码模块组成。使用单元可以把一个大型程序分成恋欢料多个逻辑相关的端提模块，并用来创建在不同程序中使用的程序库。
Program单元就是Delphi中的项目文件。
Program单元是一个特殊的单元，类似于C语言中的Main程序，即为应用程序的主程序。一个程序可以有多个单元组成，也可以只有一个Program单元组成，例如前面我们介绍过的DOS窗口程序就只有一个Program单元组成。下面是一个典型的Program单元：program Project1;
uses Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
（2）Uses语句定义程序用到的所有单元。
标识符为单元的名字，各单元之间用逗好(,)隔开，最后结束用分号(;)。
注意：每个程序总是自动包含System单元，Program单元的Uses部分不能显式指定。System单元用于实现一些低级的运行时间程序的支持，如文件输入输出（I/O）、字符串操作、浮点运算、动态内存分配等。另外，Delphi在发行时提供了许多预先定义的单元，在构造程序时可以直接使用。例如，如果你将一个核对框放进一个窗体，你就自动地使用了StdCtrls单元，因为TCheckBox构件在StdCtrls中定义。
（3）程序块由保留字Begin和End括起来的一段代码组成，用于对程序的初始化。
UNIT单元相当于C语言的子程序。基本上Delphi每个窗体都一个对应的单元。当你为应用程序创建窗体时，你就创建了一个与该窗体相联系的新单元。然而，单元也可以独立于窗体而存在。例如，一个单元可以只包含数学运算程序，而不需要有窗体。
单元结构
不管单元是否与窗体相关，单元的基本结构都是一样的 。UNIT单元由单元首部、接口部分（interface part）、实现部分(implementation part)、可选择的初始化部分（initialization part）、结束部分（finalization part）、end.组成。
单元首部
单元的首部用保留字Unit开始，后跟单元名。单元名必须遵循标识符的所有一般原则（不能以数字开头等）。下面的单元名将是有效的：
Unit Rsgl;
接口部分(Interface)
在单元名之后是接口部分。接口部分用于声明变量、类型、过程和函数等。在接口部分声明的变量、类型以及过程、函数等是其它使用该单元的程序或单元等都可见的。接口部分用保留字Interface标明开始，用implemention标明结束。接口部分只能含有声明部分。
接口部分本身又可以由几个可选的部分组成，分别是单元的USES语句、常量声明部分、类型声明部分、变量声明部分、过程和函数声明部分。其中常量声明、类型声明、变量声明、过程和函数声明部分用于声明其它使用该单元的单元可以访问的变量、类型、过程和函数等。
单元的第二部分，称为实现部分(Implementation)，主要用于定义接口部分声明过的过程、函数等的代码。实现部分用保留字implementation标明，总是紧随接口部分之后。
USES WinCRT;
Delphi提供了许多预先定义的单元，你可以在程序中直接使用。实际上，当你将一个新构件放入设计的窗体时，DElphi会自动将该构件的单元放入USES子句中。例如，如果你将Color Grid放入窗体，则单元ColorGrd就附加在窗体单元的USES子句末尾，从而ColorGRd单元中接口部分所有定义都是窗体单元可以访问的。
要使用USES子句包含单元中的程序，只要在单元名后加上程序名即可。例如，如果要在Unit2中访问Unit1中的ComputePayMent函数。
USES子句放在实现部分可以隐藏单元的内部细节，同时可以避免循环引用发生。
初始化部分（Initialization）是单元的可选部分，主要用于对单元数据的初始化，一般很少用到。
该部分总是在其它程序代码之前运行。如果一个程序包含多个单元，则在程序的其它部分运行之前，每个单元的初始化代码都会先调用，其顺序是单元显示在Uses语句的顺序。
完成部分(Finalization)是初始化过程的反过程，只要单元有初始化部分，才会有完成部分。完成部分对应在Delphi1.0中ExitProc和AddEXitProc函数。
完成部分在程序关闭时运行。任何在单元初始化时获得的资源如分配内存、打开文件等通常都在完成部分释放。单元完成部分的执行顺序与初始化部分相反。例如假如程序以A、B、C的顺序初始化单元，则完成过程的顺序是C、B、A。
一旦单元的初始化部分开始执行，就必须保证程序关闭时对应的完成部分执行。完成部分必须能够处理不完全初始的数据，因为如果产生异常，初始化代码可能不能完全执行。
FORTRAN程序应由一个主程序单元和若干个过程程序单元组成。编程前应先作结构化分析，把问题分解为若干个子功能，每个子功能编成一个独立的程序单元，称为过程程序单元。再编一个主程序单元，控制整个解题过程。在主程序单元中用简练的形式调用每个过程，每次调用就是执行该过程单元，完成该子功能，从而最终完成解题任务。本章介绍F90中的程序单元、过程、范围、模块等概念。
其中模块是F90新增加的一种程序单元。通过使用模块，可以方便地共享数据和过程。各种程序单元中，除主程序外，各程序单元可以被其他程序单元甚至自身调用。一个程序单元不需要包含可执行语句。包含内部子程序或函数的程序单元称为宿主程序。
主程序是程序开始执行的标志，其第一条语句不能是SUBROUTINE，FUNCTION，MODULE和BLOCK DATA。主程序可以用PROGRAM语句作为第一条语句，但不是必需的
子程序或函数
块数据单元
在命名的公共块中提供变量初始值的程序单元
模块
程序单元之间的关系有：
范围：它描述的是一个名称(或者是全局的或者是局部的)作用的范围。
主程序
[PROGRAM [程序名]]
[说明部分]
[可执行部分]
[CONTAINS]
[内部过程]
END [PROGRAM[程序名]]
可以看到，主程序单元中允许包含内部过程。主程序名和外部过程名和公共块名都被认为是全局名称。全局名称在一个程序中必须是唯一的。
例：PROGRAM MAIN
REAL X(10),A(10,10),B(10) !说明部分
…
CALL GAUSS(A,B,X) !执行部分，调用内部过程GAUSS
CONTAINS
SUBROUTINE GAUSS(R,S,T) !内部过程的开始
…
END SUBROUTINE GAUSS !内部过程的结束
EHD PROGRAM MAIN
Program A1
Use module A
Call B
Contains
内部子程序
或内部函数
如果过程是一个独立于主程序单元的程序单元，它就是外部过程。外部过程也可以通过非Fortran语言(通常是汇编语言)来定义。外部过程的形式有两种：
外部函数 ：FUNCTION语句
[说明部分]
[可执行部分]
[CONTAINS 内部过程]
END [FUNTION函数名]
[说明部分]
[可执行部分]
[CONTAINS 内部过程]
内部函数 ：FUNCTION语句
[说明部分]
[可执行部分]
END [FUNTION函数名]
[说明部分]
[可执行部分]
END [SUBROUTINE子程序名]
注意内部过程中不能再包含内部过程，即F90不是过程嵌套式语言。
内在过程是Fortran含于编译器程序库中的过程，它不需任何其它声明或说明即可使用。F90中定义了113个内在过程，它们为科学计算提供了极大方便，内在过程除了第一章中介绍的部分内在函数和第五章中介绍的部分数组函数外，还有其他一些内在函数及内在子程序，其具体使用方法请查看Visual Fortran的联机帮助。内在过程共分为四类：
（1）查询函数：它们的返回值是根据变元的性质而非变元的取值。
（2） 基本过程：由标量变元指明的基本过程，但可以用标量或数组实元进行调用。有许多函数是这种基本函数，并有一种基本内在子程序(MVBITS)。如果变元是标量，则结果也是标量。如果变元是数组，则对数组的每个元素施加过程，其结果是与变元形状相同的数组。例如，a是数组的话，则b=sin(a)也是数组。
（4）非基本过程：只能以标量实元进行调用，除了MVBITS以外的所有内在子程序都是非基本过程。
如果要用内在过程名作为其它过程的实元，需要用INTRINSIC语句加以声明。
BLOCK DATA[块数据名]
[说明部分]
END [BLOCK DATA[块数据名]]
例：BLOCK DATA BLKDAT
INTEGER S,X
LOGICAL T,W
DOUBLE PRECISION U
DIMENSION R(3)
COMMON/AREA1/R,S,U,T/AREA2/W,X,Y
DATA R/1.0,2*2.0/,T/.FALSE./,U/0.214537D-7/,W/.TRUE./,Y/3.5/
END BLOCK DATA BLKDAT
