Object Pascal 实例代码

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.