Delphi 程 序 中 的 单 元 有 两 种: Program 单 元 和 Unit 单 元。
个称为单元的源代码模块组成。 使用单元可以把一个大型程序分成多个逻辑相关的模块,并用
Delphi 的程序结构很特殊,与其他语言( 如 C + 语言等) 结构都不同。 一个 Delphi 程序由多 +
的 Delphi 应用程序。 首先,使用菜单命令 File | | New Application 创建一个新的工程,然后使用菜 文件( project1畅 dpr) ,其内容如下所示: program Projec
t1;
uses Forms; {SR 倡. | RES} begin Application. Initialize; Application. Run. end.
单命令 Project | Remove From Project 把主窗体 Unit1 删除。 使用菜单命令 File | Open 打开工程
句下面增加一条{ S APPTYPE CONSOLE} 语句,程序代码如下: |
语句、{ S R 倡. | RES} 语句、Application. Initialize 和 Application. Run 都删掉,但是需要在 program 语
事实上,这就是只有一个 Program 单元的 Delphi 程序,在这个程序中,用户甚至可以把 uses
106
第 3 章Delphi 程序结构和用户界面设计
program Project1;
应
程序代码,如增加一条打印语句和一条读语句,就可以构成一个最简单的 Delphi 程序,程序代 码如下: program Project1;
{SAPPTYPE CONSOLE} | begin writeln( I am learning Delphi 7畅); readln; end.
当然,这样的程序不能完成任何功能,用户需要在 begin…end 之间加入所要完成的功能的相
{SAPPTYPE CONSOLE} {说明该程序是一个控制台程序} | begin end.
2.一般的 Delphi 程序结构
这实际上就是完全没有使用 Delphi 面向对象程序设计特点的普通 Pascal 程序的结构。
元文件和窗体文件。 从理解和阅读 Delphi 源程序的角度看,用户所涉及到的一个完整的 Delphi 程序主要是由一个 Program 单元( 工程文件) 和多个 Unit 单元( 单元文件) 构成。 program Project1; /Program 单元 / 下面是用户所能看到的一般的 Delphi 程序结构:
uses Forms, Unit1 in Unit1畅 {Form1} ; pas pas Unit2 in Unit2畅 {Form2} ; Unit3 in Unit3畅 {Form3} ; pas {SR 倡. | RES} begin Application. Initialize; Application. CreateForm(Tform1,Form1); Application. CreateForm(Tform2,Form2); Application
. CreateForm(Tform3,Form3); Application. Run; end. /Unit 单元 1 /
从 3畅 1 节可以看出,一个完整的 Delphi 工程是由多个文件构成的,主要包括工程文件、单 1畅
unit Unit1; {单元 1 代码} end. unit Unit2; {单元 2 代码} end. unit Unit3;
/Unit 单元 2 /
/Unit 单元 3 /
3畅 1Delphi 程序结构 {单元 3 代码} end.
107
Delphi 工程至少要包含一个 Unit 单元( 即一个窗体) 。 大多数情况下,一个 Delphi 工程都包含多 内容在下面章节还要具体介绍,在这里只要对 Delphi 的程序结构有一个感性认识就可以了。
程文件中。 第二部分是 Unit 单元部分 ( 每个 Unit 单元代表 Delphi 中一个窗体) ,一个 面向对象
相关信息( 一个 Delphi 工程只有一个工程说明部分) 。 工程说明部分的代码保存在 Delphi 的工
一部分 Program 单元是整个 Delphi 程序的工程说明部分,主要管理与 Delphi 工程定义和运行的
从上述程序结构可以看出,Delphi 源程序主要由 Program 单元和 Unit 单元两部分组成。 第
个 Unit 单元( 即包含多个窗体) 。 每一个 Unit 单元的代码分别保存在不同的单元文件中。 详细
3畅 3工程文件 1畅
程文件是主窗体以及其他自动创建的窗体实例化的地方。 一般不需要编辑工程文件,除非要执 行程序初始化例程、显示启动画面或执行其他必须在程序启动时运行的例程。 下面的代码是一个典型的工程文件: program Project1;
Forms, Unit1 in unit1畅 {Form1}; pas {SR 倡. | res} begin Application. Initialize; Application. CreateForm(Tform1,Form1); Application. Run; end.