本文详细介绍了Delphi中单元（Unit）的结构组成，包括接口（Interface）与实现（Implementation）两大部分。在接口部分，文章阐述了如何声明使用的其他单元、类型定义、常数、全局变量以及对外公开的过程与函数；而在实现部分，则展示了如何具体实现这些过程与函数。此外，还涉及了初始化与最终化区段的内容。
unit unitName;
interface
// 其他我们在本单元会引入的单元名称，在 interface 这个区段中宣告
uses
unitA, unitB, unitC;
// 要公告周知的型别定义
type
newType = TypeDefinition;
// 要公告周知的常数
const
Zero = 0;
// 全局变量
var
Total: Integer;
// 要公告周知的函式与程序
procedure MyProc;
implementation
// 其他在 implementation 区段我们会引入的单元名称
uses
unitD, unitE;
// 不对其它单元文件告知的全局变量
var
PartialTotal: Integer;
// 所有被公告的函式都必须在此被实作
procedure MyProc; begin
// ... MyProc 这个程序的程序代码
end;
initialization
// 非必要的 initialization 区段的程序代码
finalization
// 非必要的 finalization 区段程序代码
end.
interface
// 其他我们在本单元会引入的单元名称，在 interface 这个区段中宣告
uses
unitA, unitB, unitC;
// 要公告周知的型别定义
type
newType = TypeDefinition;
// 要公告周知的常数
const
Zero = 0;
// 全局变量
var
Total: Integer;
// 要公告周知的函式与程序
procedure MyProc;
implementation
// 其他在 implementation 区段我们会引入的单元名称
uses
unitD, unitE;
// 不对其它单元文件告知的全局变量
var
PartialTotal: Integer;
// 所有被公告的函式都必须在此被实作
procedure MyProc; begin
// ... MyProc 这个程序的程序代码
end;
initialization
// 非必要的 initialization 区段的程序代码
finalization
// 非必要的 finalization 区段程序代码
end.
扫一扫
792
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
