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.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。