理解 Delphi 的类(十一) 深入类中的方法[10] 构造方法与析构方法

//构造方法就是对象建立时调用的方法; 析构方法就是对象销毁时调用的方法. 如:

TMyClass = class(TObject)
public
  constructor Create;           {构造方法}
  destructor Destroy; override; {析构方法}
end;


{几个要点:
  这两个方法都可以追溯到所有类的祖先类 TObject;
  它们都属于类方法, 尽管没有 class 标识符;
  但和类方法也有区别: 一般的类方法不能使用类中非静态数据; 但它们可以.

  必须使用 constructor 和 destructor 来定义, 但名称未必是: Create 与 Destroy;
  如果不使用 Create 与 Destroy 的命名会带来很多麻烦, 没必要尝试.

  我们自己的代码在 Create 中是执行在父类的 Create 代码之后; 在 Destroy 中执行在之前;
  所以, 一般会用这样的语句格式:  
}

constructor TMyClass.Create;
begin
  inherited;
  //...
end;

destructor TMyClass.Destroy;
begin
  //...
  inherited;
end;

{
  Create 是我们用得最多的方法; 但 Destroy 是我们用得最少的方法;
  因为通过 Free 调用 Destroy 更安全一些.

  Destroy 是一个虚方法; Create 在祖先类中虽然是静态方法, 但在很多实用的类中也成了虚方法;
  所以在覆盖或重载时应区别对待.
}


// Create 应该是受到编译器特别对待的一个方法, 譬如:
TMyClass = class(TObject)
public
  constructor Create;
end;

{从道理上来讲, 这会隐藏或替换了父类的 Create ; 但实际上没有, 编译器肯定要做一个幕后工作!}


//再如: 
TMyClass = class(TObject)
public
  constructor Create(x,y: Integer);
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyClass }
constructor TMyClass.Create(x, y: Integer);
begin
  //inherited Create;
  //...
end;

{
  编译器竟也允许没有 overload 的重载; 竟也允许去掉这句: inherited Create;
  如果没有 TObject.Create 方法, 类如何初始化、分配内存? 
  所以这都是表面现象, 我想编译器会自动 overload、自动 inherited Create 的.

  其他方法不会有这些特殊待遇的, 看来哪都有走后门的.
}