//单元名
unit first;
//接口
interface
//接口开始
uses
{引用单元列表,这是可选的,如果包含必须紧跟interface关键字
接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样
在接口部分声明的过程和函数,就像使用了forward关键字}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
//接口结束
type
TForm1 = class(TForm) //创建类
//私用成员,提供内部使用
private
{ Private declarations }
function ReturnWord:String;
//公用成员,提供外包访问
public
{ Public declarations }
procedure Welcome;
end;
var
firstForm: TForm1; //定义外部访问
implementation
{实现部分}
//uses {无引用模块,请不要写这个关键字,会造成Identifier expected but 'PROCEDURE' found错误}
{如果包含uses字句,必须紧跟关键字implementation}
{在这里实现interface中定义的过程和函数,可以任意顺序的定义和调用.}
{在这里可以省略过程和函数的列表,如果包括,必须一样.}
{可以定义单元私有的常量/类型(包括类)/变量/过程和函数,但这些对引用单元的客户是不可见的}
{$R *.dfm}
//定义程序 如果是提供外部访问的必须在公用成员中注册,不定义会报错
procedure TForm1.WelCome();
Begin
ShowMessage(ReturnWord);
End;
//定义函数,函数必须有返回值 如果是提供外部访问的必须在公用成员中注册,不定义会报错
function TForm1.ReturnWord:String;
Begin
Result:='欢迎';
End;
initialization
firstForm.WelCome;
{初始化部分}
{程序启动时先执行,并顺序执行}
{一个单元的初始化代码运行之前,就运行了它使用的每一个单元的初始化部分}
finalization
{结束化部分,程序结束时执行}
end.