Delphi 单元文件结构

//单元名
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.