Delphi项目构成之单元文件PAS

======================================================

注：本文源代码点此下载

======================================================

单元文件是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.
uses单元引用
一个单元引用的外部单元清单,其中每个单元必须用逗号分开,最后一个单元必须加分号,分号表示该uses清单的结束。
interface接口段
用来生命这个单元的输出标识符,即能被其他单元访问的项。接口段以interface开始,以implementation结束。
implementation执行段
执行段以implementation开始,以下一个关键字结束,下一个关键字通常就是单元的最后关键字end。但在有初始化的单元中,下一个关键就是initialization关键字。
以上三个部分是unit单元必须要的。接下来两个关键字部分是可选的。
initialization单元初始化和finalizaiton单元结束
用来执行启动和清理的代码,初始化中的任何代码在其单元载入内存时都要被执行,结束段中的任何代码在单元从内存中清理前都要被执行。
可以只有一个初始化段,但不能只有结束段,而没有初始化段。

======================================================

在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定
这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/