delphi 单元文件的说明 新浪

Delphi单元文件

  1.库单元文件头:其中声明了库单元的名字.

  2.Interface部分:

  由保留字interface开始,结束于保留字implementation,它用来声明引用的单元,常量,数据类型,变量,过程和函数.在Interface部分声明的变量,常量,数据类型,过程,函数都可以供外部引用,对整个程序而言是共有的.也就是说,对于所有引用该单元的单元来说,这些声明都是可见和可访问的.

  在Interface部分,只需写出过程和函数的首部,具体的定义是在下面的implementation部分给出的.

  Interface部分又可分为多个可选部分,分别为单元引入部分(uses),常量说明部分,类型说明部分,变量说明部分,过程和函数声明部分.uses里是用来说明单元引入了哪些部分(包括其他单元和一些组件);type里是用来申明有哪些类型的(包含申明类、过程等等);var里是用来申明具体的变量和一些对象实例的。

  3.Implementation部分:

  Implementation部分分为两部分.一部分是声明部分,包括单元引用,常量,类型,变量,过程和函数的声明,这一点和Interface部分相似.

  区别有两点:

  (1):在Implementation部分声明的只对本单元是公共的,可见的,其他单元即使引用了该单元,也不能访问它们.

  (2):在Implementation部分声明的过程和函数,不需要遵循先声明后定义的规则,而可以直接写出过程和函数的定义.另一部分是在Interface部分声明的过程和函数的定义.

  4.Initialization部分:

  用于初始化该库单元,此处的代码最先执行.如果多个库单元中包含Initialization部分,那么它们的执行顺序就和Program的uses部分引用单元的出现顺序是一致的.

  5.Finalization部分:

  通常用于释放Initialization部分分配的资源.如果多个库单元中包含Finalization部分,其执行顺序和Initialization部分正好相反.

下面是样例:

unit MainFrm; {库单元文件头}
  interface   {接口部分}
  uses    
 Windows, Forms, StdCtrls;
  type
 TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
 private
  { Private declarations }
 public
  procedure MyButtonClick(sender:TObject);
  { Public declarations }
 end;
  var
 Form1: TForm1;
  implementation {实现部分}
  //uses
  {$R *.dfm}
  procedure TForm1.FormCreate(Sender: TObject);
var
 MyButton : TButton;
begin
  MyButton := TButton.Create(self);
 MyButton.Parent := self;
//告诉创建方法在Form1中显示MyButton
 MyButton.Caption := ‘测试一‘;
 MyButton.OnClick := MyButtonClick;
 MyButton.Show;
end;
  procedure TForm1.MyButtonClick(sender:TObject);
begin
 Application.MessageBox(PAnsiChar(TButton(sender).Caption)
            ,‘Test Component‘);
 TButton(sender).Caption := ‘测试二‘;
end;
  initialization {可选的初始化部分}
 //
finalization  {结束部分}
 //
  end.      {End结束符}

时间: 2024-11-11 12:15:46

delphi 单元文件的说明 新浪的相关文章

Delphi单元文件

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

Delphi单元文件引用名称问题

Delphi新版本的单元文件格式变化了,如windows变成了winapi.windows,如果想在单元引用中使用简称,则需要在工程选项中配置: 这样就可以使用全名或简写来引用单元了.

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

BotVS配置管理—使用新浪云搭建托管者

1. 创建SAE应用 登录新浪云平台,点击创建新应用 2. SAE环境部署 在新应用中选择自定义 相应选项如下 开发语言:自定义 运行环境:云容器 语言版本:自定义 部署方式:手工部署 操作系统:系统 centos 版本7 环境配置:基础 应用信息:填写二级域名及应用名称 3. 确认环境信息 查看信息及价格 4. 创建成功 创建成功后,跳转到容器管理点击 SSH客户端登录,登录地址为 ssh -p 60022 [email protected] 5. 创建ssh-keygen Windows上需

Delphi单元结构

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

Delphi项目构成之单元文件PAS

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

Ubuntu“无法解析或打开软件包的列表或是状态文件”的解决办法。_StarSasumi_新浪博客

Ubuntu"无法解析或打开软件包的列表或是状态文件"的解决办法. (2011-04-30 14:56:14) 转载▼ 标签: ubuntu apt 分类: Ubuntu/Linux 早上起来习惯性地打开更新管理器看看,结果出现"无法解析或打开软件包的列表或是状态文件"的错误,具体信息是: 初始化包信息时遇到无法解决的问题. 请汇报这个"update-manager"软件包的错误,并且将如下信息包含在报告中: 'E:Encountered a s

上传文件到新浪云Storage的方法

上传文件到新浪云Storage的方法,兼容本地服务器 if (!empty($_FILES['sharepic']['name'])){ $tmp_file = $_FILES['sharepic']['tmp_name']; $file_types = explode(".", $_FILES['sharepic']['name']); $file_type = $file_types[count($file_types) - 1]; /*设置上传路径*/ if (isset($_S