向 DataModule 添加析构函数时如何避免访问冲突？

Question

使用 C++Builder，我创建了一个新项目，向该项目添加了一个 DataModule，并在 MainForm 中添加了对该 DataModule 的引用。我运行它并关闭 MainForm。结果 – 没问题。

然后，我向 DataModule 添加了一个析构函数，重新编译，它运行良好，直到我关闭 MainForm，然后我得到了访问冲突。

如何才能向 DataModule 添加析构函数？

这是我想出的代码：

DataMod2.h

#ifndef DataMod2H
#define DataMod2H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
//---------------------------------------------------------------------------
class TDataModule2 : public TDataModule
{
__published:    // IDE-managed Components
private:    // User declarations
public:     // User declarations
    __fastcall TDataModule2(TComponent* Owner);
    ~TDataModule2();
};
//---------------------------------------------------------------------------
extern PACKAGE TDataModule2 *DataModule2;
//---------------------------------------------------------------------------
#endif

DataMod2.cpp

#pragma hdrstop

#include "DataMod2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma classgroup "FMX.Controls.TControl"
#pragma resource "*.dfm"
TDataModule2 *DataModule2;
//---------------------------------------------------------------------------
__fastcall TDataModule2::TDataModule2(TComponent* Owner)
    : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
TDataModule2::~TDataModule2() {

}

单元2.h

#ifndef Unit2H
#define Unit2H
#include "DataMod2.h"
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <FMX.Controls.hpp>
#include <FMX.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
private:    // User declarations
    TDataModule2 * dataMod;
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

单元2.cpp

#include <fmx.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.fmx"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    dataMod = new TDataModule2(Form1);
}
//---------------------------------------------------------------------------

Answer 1

重写基类析构函数需要匹配析构函数的整个签名，包括调用约定。 DataModule 派生自

TObject

，

TObject

析构函数如下所示：

__fastcall virtual ~TObject();

您的 DataModule 析构函数缺少

__fastcall

调用约定：

class TDataModule2 : public TDataModule
{
    ...
    __fastcall ~TDataModule2();
};

__fastcall TDataModule2::~TDataModule2() {

}

此外，在您的

TForm1

构造函数中，您应该使用

this

指针作为 DataModule 的

Owner

，而不是使用全局

Form1

变量：

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    dataMod = new TDataModule2(this);
}