Delphi Pascal 单元文件的特殊定义格式

初级delphi开发人员所熟知的单元定义格式一般如下:

unit Unit1;

interface
{
功能定义
}
implementation
{
功能实现
}
end.

而较熟悉的开发人员则有如下的定义格式

unit Unit1;

interface
{
功能定义
}
implementation
{
功能实现
}
initialization
{
单元初始化,在工程文件的begin之后执行
}
finalization
{
单元退出时执行,在工程文件的end结束前执行
}
end.
所有单元的initialization和finalization在编译时会被组成一个procedure table,在工程文件的begin和end中,编译器自动生成了调用该procedure table的内置代码。

另外还有嫌initialization拼写太麻烦的高级开发人员写法
unit Unit1;

interface
{
功能定义
}
implementation
{
功能实现
}

begin
{
单元初始化的另一种写法
}
end.
实际使用过程中可发现上面这种写法不能和initialization和finalization共存,但是initialization和finalization内部可以直接写 begin end; 如下
unit Unit1;

interface
{
功能定义
}
implementation
{
功能实现
}
initialization
{
单元初始化,在工程文件的begin之后执行
}
begin
end;

finalization
{
单元退出时执行,在工程文件的end结束前执行
}
begin
end;
end.
时间: 2024-11-09 09:36:15

Delphi Pascal 单元文件的特殊定义格式的相关文章

Delphi项目构成之单元文件PAS

单元文件是Pascal源文件,扩展名为.pas. 有三种类型的单元文件: 窗体/数据模块和框架的单元文件(form/data module and frame units),一般由Delphi自动生成. 组件的单元文件(component units),由您或者Delphi生成. 通用的单元文件(general-purpose units),有您创建. 下面让我们看看基本的Pascal单元文件结构是如何的? Step1.在主菜单上选择[File | New | Unit],Delphi将创建一个

delphi 单元文件的说明 新浪

Delphi单元文件 1.库单元文件头:其中声明了库单元的名字. 2.Interface部分: 由保留字interface开始,结束于保留字implementation,它用来声明引用的单元,常量,数据类型,变量,过程和函数.在Interface部分声明的变量,常量,数据类型,过程,函数都可以供外部引用,对整个程序而言是共有的.也就是说,对于所有引用该单元的单元来说,这些声明都是可见和可访问的. 在Interface部分,只需写出过程和函数的首部,具体的定义是在下面的implementation

delphi基础之单元文件

Delphi单元文件 unit MainFrm; {库单元文件头} interface        {接口部分由Interface开始implementation结束.声明引用的单元,常量,数据类型,变量,过程和函数} uses {声明引用的单元 } Windows, Forms, StdCtrls; {声明常量,数据类型,变量} type          //类型 TForm1 = class(TForm) procedure FormCreate(Sender: TObject); pr

Delphi单元文件

  unit Unit1; //单元文件名 interface //这是接口关键字,用它来标识文件所调用的单元文件 uses //程序用到的公共单元 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type //这里定义了程序所使用的组件,以及组件所对应的事件 TForm1 = class(TForm) private //定义私有变量和私有过程 { Private decla

如何利用fleet单元文件为CoreOS集群创建高灵活性服务

提供:ZStack云计算 系列教程 本教程为CoreOS上手指南系列九篇中的第六篇. 内容简介 CoreOS能够利用一系列工具以集群化与Docker容器化方式简化服务管理工作.其中etcd负责将各独立节点联系起来并提供全局数据平台,而大部分实际服务管理任务则由fleet守护进程实现. 在上一篇教程中,我们了解了如何利用fleetctl命令操纵服务及集群成员.在今天的教程中,我们将了解如何利用单元文件定义服务. 在接下来的内容中,我们将探讨如何构建fleet单元文件,外加在生产环境下提升服务健壮性

Delphi 之路 — 文件操作函数 (说明和使用说明)

Delphi 之路 - 文件操作函数 (说明和使用说明) //判断文件是否存在 FileExists //判断文件夹是否存在 DirectoryExists //删除文件 DeleteFile; Windows.DeleteFile //删除文件夹 RemoveDir; RemoveDirectory //获取当前文件夹 GetCurrentDir //设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory //获取指定驱动器的当前路径名 GetDir

Jquery调用从ashx文件返回的jsonp格式的数据处理实例

开发环境:vs2010+jquery-1.4.min.js 解决问题:网上代码比较少,好多调试不通,返回数据不用json而用jsonp主要考虑解决跨域问题 开发步骤:打开VS2010,新建一web站点,保存位置选择D:\Website1;添加新项,选择一般处理程序,命名cmdHandler.ashx;添加新项,选择HTML页,命名为testAshx.htm;网上下载jquery-1.4.min.js拷贝到web站点中 项目相关网站源码和运行截图如下: 1.testAshx.htm代码如下: <!

05 数组概述和定义格式说明

class TestX { public static void main(String[] args) { /* int []arr={1,2,3}; int []arr1=new int [2];/这是一位数组定义的两种方法,静态的可以赋值,动态的不能再定义的时候赋值, / int[][]a={{1,2},{2,3,}}; int [][]a1=new int[2][2]; int [][]a2=new int [2][];//动态定义必须用new新建对象,静态的都不需要用new, a2[0

delphi 2010 资源文件使用

Project  Recources...   //1提取出资源 procedure TForm1.Button1Click(Sender: TObject);begin  with  TResourceStream.Create(HInstance, 'SnapShot_EXE', RT_RCDATA) do  begin     SavetoFile('SnapShot.exe');     Free;  end;end; //播放wav文件 //使用icon 文件 TResourceStr