Delphi项目构成之单元文件PAS

OStack程序员社区-中国程序员成长平台 › 门户 › 编程›综合其他

原作者: [db:作者] 来自: [db:来源] 收藏邀请

单元文件是Pascal源文件，扩展名为.pas。

有三种类型的单元文件：

窗体/数据模块和框架的单元文件（form/data module and frame units），一般由Delphi自动生成。
组件的单元文件（component units），由您或者Delphi生成。
通用的单元文件（general-purpose units），有您创建。

下面让我们看看基本的Pascal单元文件结构是如何的？

Step1、在主菜单上选择【File | New | Unit】，Delphi将创建一个新的单元，并在Code Editor中显示出。

Step2、让我们来看看一个最简单的pascal单元，包括了四个关键字unit、interface、implementation和end；

比较全的单元如下，请看注释：

unit Unit1;
 
interface
 
uses            { List of units goes here }

  Windows, Messages,

  SysUtils, Variants,

  Classes, Graphics,

  Controls, Forms, Dialogs;
 
                { Interface section goes here }
 
type            { type关键字用来声明一个新的类型}

  TMyArray = array[0..19] of Byte;

                { 声明TMyArray用来代替array[0..19] of Byte}

const           { const关键字用来声明常量}

  AppCation = 'Hello World';

                { AppCation由于在interface段声明，它在单元的任何地方都可以用}

var             { var关键字用来声明变量，也分interface段和implementation段}

  X: Integer;

  MyArry: TMyArray;

                { MyArray为刚才定义的TMyArray新类型}
 
  procedure DoSomething;

                { 声明一个DoSomething过程}
 
implementation

uses            { List of units goes here }

  SysUtils, Variants;
var

  ObjList: TObjectList;

const           { BaseX,BaseY由于在implementation段声明，只能在单元内使用}

  BaseX = 20;

  BaseY = 200;

                { 实现interface段声明的DoSomething过程}

  procedure DoSomething;

  begin

                { Code for DoSomething goes here.}

  end;

                 //C++风格的注释，只能用于单行注释

                (*

                  相同类型注释不能嵌套

                *)

                {

                 推荐使用的注释符号

                }
 
                { Implementation section goes here }
 
initialization

                { Initialization section goes here }

  ObjList := TObjectList.Create;
finalization

                { Finalization section goes here }

  FreeAndNil(ObjList);

end.