Delphi 类

interface  // 接口部分

uses
   Classes,  windows;

Type
   TClass = Class(TParentClass)
   Private
      FX,FY,FZ : Integer;
      FS : String[128];
   Protected
      // 保护成员变量/函数/过程
   Public
      Constructor Create(X,Y,Z:Integer;S:string); // 构造函数
      Destructor  Destroy; override;             // 析构代码
      Procedure   Display; virtual;
      Function    SetStr(const Value:string);
   Published
      Property Caption : String read FS Write SetStr;
End;

implementation // 实现部分

{$R *.dfm}

Function TClass.SetStr(const Value:string);
begin
   // 函数/过程体
end;

initialization
    // 初始化代码

finalization
    // 析构代码
end.