unit的结构:
//单元标头 unit Name:
//interface区
uses子句区域 #include。声明资源文件。
{uses Dialogs;}
自定义单元的引用:
uses
unit1 in 'path' {Form1};
const
type 相当于class,独立的
procedure() //procedure不能有返回值。
//[Error] Unit1.pas(15): Unsatisfied forward or external declaration: 'TForm1.getpt';要想函数被其他单元使用,要在Var声明,
var
//implementation区 单元私有
//枚举类型要放在函数或者过程之外声明。
只有实现过程和函数。//如果在interface里面没有写上声明。函数或者过程将是私有。
在里面不能有begin...end的语句,在过程或者函数之前。 '.' expected but 'FUNCTION' found;
但是可以放在最后。
{$R *.res}
//initialization区 程序的最初入口
//finalization区
//end.
unit:unitName;
interface:
{接口部分开始}
uses:
{声明引用的单元列表,相当于包含头文件,如果声明的话必须紧跟在interface之后}
{声明变量、常量、类型、过程和函数,相当于提前声明}
{接口部分结束}
implementation:
{实现部分开始}
uses:
{定义过程和函数的实现,必须接跟implementation之后}
{变量、常量、过程、函数列表,如果写的话,要与interface一致。}
{定义单元私有的变量、常量、过程和函数,这部分对于用户是不可见的。}
{$R *.dmf}
initialization:
{程序的最初入口}
finalizaton:
{在程序结束时,要做的事情}
end.