delphi怎么添加构造和析构函数

在 delphi 语言里，类的构造和析构函数名称是特定的：构造函数名称为 Create，析构函数名称为 Destroy。

在类中声明类的构造与析构函数，大致如下代码：

//类的声明

  TScrollingWinControl = class(TWinControl)

  public

    constructor Create(AOwner: TComponent) override

    destructor Destroy override

  end

//构造函数代码：

constructor TScrollingWinControl.Create(AOwner: TComponent)

begin

  inherited Create(AOwner)

  //.....

end

//析构函数代码：

destructor TScrollingWinControl.Destroy

begin

  //....

  inherited Destroy

end

在定义构造函数的头文件里先定义析构函数

比如有

class CElementDlg : public CDialog

{

// Construction

public:

CElementDlg(CWnd* pParent = NULL)// standard constructor

//析构函数定义就是

~CElementDlg()//~符号+类名就是析构函数名了

....

然后在你的.cpp文件里对析构函数进行定义了一般紧跟在构造函数下面定义

CElementDlg::~CElementDlg()

{

//在这里填上你的代码吧

}

头文件中：

public:

CChatApp()

~CChatApp()

CPP文件中：

CChatApp::~CChatApp()

{

}

只要将声明放在头文件中，定义放在CPP文件中就行了

---