delphi 基础之四 delphi 组织结构

delphi 组织结构

在Delphi中，一个正在开发的应用程序可以被称作项目或者工程。一般地，一个项目主要由dpr（项目）、pas（单元）和dfm（窗体）三种文件组成，另外还有一些附属文件，如res（资源）文件等。在源代码中，项目文件用关键字program标识，单元文件用unit标识。

通常，一个项目只有惟一的dpr文件。一个dfm文件总是有对应的pas文件，但是pas文件可以没有对应的pas文件。

如果打开Delphi，选择菜单File|New|Application，则可以新建一个项目。该项目包括一个项目文件——Project1.dpr、一个窗体文件——Unit1.dfm和一个对应的单元文件——Unit1.pas。

这些文件的内容都必须按照一定的组织结构来编写，编译器按照既定的组织结构来识别这些内容并进行编译。在本节里，我们讨论program和unit两种单元文件的组织结构。

Program的组织结构

一个项目文件被关键字program标识，因此，在这里我将项目文件的源代码称作program。以下是一个简单的program：

program Project1;   {文件定义：一个名为Project1的项目文件}

uses                {在program中需要使用到哪些单元}

Forms,

Unit1 in 'Unit1.pas' {Form1},

Dialogs;

Var   {在这里可以定义一些变量和常量}

AppMsg: String;

{$R *.res}  {$R是一个编译指令，此处表示要编译资源文件Project1.res}

{这个部分可以实现一个函数和过程}

procedure AppStart(AppMsg: String);

begin

ShowMessage(AppMsg);

end;

{begin…end部分是program的主体，这里面的代码是可以运行的}

begin

Application.Initialize; {应用程序初始化}

Application.Title := 'lxpbuaa';

Application.CreateForm(TForm1, Form1); {创建主窗体}

AppMsg := '应用程序马上开始运行。';

AppStart(AppMsg);

Application.Run;

end.

Unit的组织结构

一个单元文件被关键字unit标识，因此，在这里我将单元文件的源代码称作unit。以下是一个完整的unit：

unit Unit1; {文件定义：一个名为Unit1的单元文件}

interface   {在这个部分声明可供其他单元使用的变量、常量、类型、函数和过程}

uses        {interface部分的uses内容对整个单元都有效}

Windows, Messages, Classes, Controls, Forms, Dialogs, Contnrs;

type        {声明类型}

TForm1 = class(TForm)

private

procedure ShowInfo(Info: String);

public

{ Public declarations }

end;

{声明函数和过程}

procedure ShowInfo(Info: String);

var             {声明变量}

Form1: TForm1;

implementation  {在这个部分完成单元的私有声明，并实现interface声明的类、函数和

过程}

uses            {implementation部分的uses内容只对implementation有效。

interface不需要而implementation需要的单元应该在这里引用}

SysUtils, Variants;

var             {implementation部分可以和interface部分一样进行声明}

ObjList: TObjectList;

{$R *.dfm}      {编译对应的dfm文件}

{实现interface部分声明的函数和过程}

procedure ShowInfo(Info: String);

begin

ShowMessage(Info);

end;

{实现interface部分声明的类}

{ TForm1 }

procedure TForm1.ShowInfo(Info: String);

begin

ShowMessage(Info);

end;

{单元初始化部分}

initialization

ObjList := TObjectList.Create;

{单元终止部分}

finalization

FreeAndNil(ObjList);

end.

从上面的Unit1单元可以看到，一个unit可以包含五个部分：

（1）unit关键字部分，指定单元的名字。

（2）interface部分。从关键字interface到implementation为止的内容，都是属于这个部分。该部分可以声明变量、常量、类型、函数和过程，而且它们对于其他单元都是可见的。

（3）implementation部分。在这个部分也可以完成interface具有的声明功能，但是它们对于其他单元是不可见的，属本单元私有；同时完成类、函数和过程的实现。

以上三个部分是一个unit必须的。接下来的两个部分是可选的。

（4）initialization。在这个部分可以完成单元的初始化工作。如果将一个单元比作一个类，我们知道类的初始化是在构造函数Create中完成的，所以initialization部分就相当于单元的构造函数。

（5）finalization。在这个部分可以完成单元的终止，完成类似于类的析构函数Destroy的功能。

需要注意的是：如果几个单元都有initialization/finalization部分，则它们的执行顺序与这些单元在program的uses字句中的出现顺序一致。所以应该避免initialization/finalization部分的代码执行时依赖于它们的执行顺序。