delphi object.pas

来自「是一个很好的编辑器」· PAS 代码 · 共 38 行

{ replace all occurence of "MyObject" with your object name }
unit {Unit_name};

interface

uses
  Windows, Messages, SysUtils, Classes;

type
  TMyObject = class(TObject)
  private
    { Private declarations }
  public
    constructor Create;
    destructor Destroy; override;
    { Public declarations }
  end;

var
  MyObject: TMyObject;

implementation

{ Object constructor }
constructor TMyObject.Create;
begin
  inherited Create;
  { enter your code here }
end;

destructor TMyObject.Destroy;
begin
  { enter your code here }
  inherited;
end;

end.