Delphi构造函数和析构函数

delphi的构造函数的定义是： 
constructor create;
delphi的析构函数的定义是：
destructor destroy;
析构函数是不能重载的，但是构造函数是可以重载的。
构造函数在重载的时候要在后面加“overload”，例如:
constructor create;overload;
constructor create(i:integer);overload;
注意，只有两个构造函数以上才叫重载，只有一个就不用“overload;”了。
默认的构造函数是：constructor create; 如果有重载的话，那么默认的构造函数后面也要加overload，正象上面的例子一样。
delphi构造函数在类外定义在什么位置呢？在implementation的后面。下面给出一个实例，可以从这个实例中看出构造函数的定义：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)　　　
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyForm1 = class(TForm1)　　　　／／自定义一个TMyForm1类
  public
    constructor Create; overload;　　／／构造函数有重载
    constructor Create(I: Integer); overload;　／／重载一个构造函数
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
constructor TMyForm1.Create;　　　／／这里定义构造函数
begin
  inherited Create(nil);　　／／inherited 表示调用父类的构造函数
end;
constructor TMyForm1.Create(I: Integer);
begin
  inherited Create(nil);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  A: TMyForm1;
begin
  A := TMyForm1.Create(1);
  A.Show;
end;

end.