bcc32 和 bcc32c 对象生命周期之间的区别

Question

我有一个使用 C++ Builder 10.1 Berlin 构建的跨平台 C++ 应用程序，并且在理解对象的生命周期处理时遇到了问题，在这种情况下，字符串是在类之外声明的。 我创建了一个新的表单应用程序并添加了一些代码。 cpp 文件如下所示：

#include
#pragma hdrstop
#include "FmrMain.h"
#pragma package(smart_init)
#pragma resource "*.fmx"
TForm1 *Form1;

const String Hello = "Hello";

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
   ShowMessage(Hello);
}

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
   ShowMessage(Hello);
}

我使用 CLANG 增强型 C++11 编译器 bcc32c 编译它，运行应用程序并再次关闭表单。当 TForm1::FormDestroy 被调用时，Hello 已经被销毁。当我使用经典编译器 bcc32 编译 win32 的代码时，字符串在 FormDestroy 之后被销毁。

有人可以对此进行解释或提供一些关于我必须寻找的主题的信息吗？为什么基于 CLANG 的编译器在这里表现不同？

编辑

当我使用自定义类而不是字符串时，调试起来更容易。

class Foo {
public:
   Foo(){};
  ~Foo(){}
};
Foo A;

//--------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------------

__fastcall TForm1::~TForm1()
{
}

创造与毁灭秩序是这样的。我已经添加了调用堆栈。

bcc32c（CLANG C++11 编译器）

1. 创建 Foo

   :004052C0 Foo(this=:00400000)
   :00405070 __cxx_global_var_init3()
   :004052A3 _GLOBAL__I_a()
   :00405ab7 ; ～福
   :321fa2b7 ; C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\CC32C240MT.DLL
   :321fa6ff CC32C240MT.__wstartup + 0xbb

2. 创建Form1

   :004052EC TForm1(this=:00402422, __ctor_flag='\0')
   :0085c139 fmx240.@Fmx@Forms@TApplication@CreateForm$qqrxp17System@TMetaClasspv + 0x5d
   :0085c349 fmx240.@Fmx@Forms@TApplication@RealCreateForms$qqrv + 0x81

3. 摧毁 Foo

   :004052D0 ~Foo(this=:0040B7DC)
   :0040509E __dtor_A()
   :321f6246 CC32C240MT.___call_atexit_procs + 0x52
   :321f671c CC​​32C240MT.___exit + 0x20

4. 销毁 Form1

   :00405868 ~TForm1(this=:5016E698)

bcc32（经典 borland 编译器）

1. 创建 Foo

   :00404950 Foo::Foo(this=:00409B74)
   :004048A0 STCON0()
   :00405727 ;根
   :322190f1 ; C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\CC32240MT.DLL > :322193b5 CC32240MT.__wstartup + 0xa5

2. 创建Form1

   :00404994 TForm1::TForm1(this=:02F2AE20, Owner=:02F39620)
   :0095c139 fmx240.@Fmx@Forms@TApplication@CreateForm$qqrxp17System@TMetaClasspv + 0x5d
   :0095c349 fmx240.@Fmx@Forms@TApplication@RealCreateForms$qqrv + 0x81

3. 销毁 Form1

   :00404ABC TForm1::~TForm1(this=:02F2AE20)

4. 摧毁 Foo

   :00404978 Foo::~Foo(this=:00409B74)
   :0040493F STDES0()
   :0040573f ;IRoot>
   :3221910f ; C:\Program Files(x86)\Embarcadero\Studio\18.0\bin\CC32240MT.DLL
   :3221915b ; C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\CC32240MT.DLL > :3221944a ; C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\CC32240MT.DLL

Answer 1

自动创建的TForm 对象归全局TApplication 对象所有。 在应用程序的main()/wmain()/WinMain() 入口点函数退出之后，该对象被销毁（从而销毁其拥有的表单）。全局在应用程序清理期间被销毁。

在任一编译器中，保证全局 String 的生命周期长于全局 TApplication 对象的生命周期。您依赖于基于跨不同单元的全局变量的清理顺序的未定义行为。更糟糕的是，您依赖于跨不同框架的清理顺序！您的 String 在您自己的 C++ 代码中，但 TApplication 对象在基于 Delphi 的 RTL 库中。

如果您的String 需要在使用它的TForm 的生命周期内保持活动状态，则应将其声明为该类的static 成员：

FmrMain.h：

//---------------------------------------------------------------------------

#ifndef FmrMainH
#define FmrMainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <FMX.Controls.hpp>
#include <FMX.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
private:    // User declarations
    static const String Hello;
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    __fastcall ~TForm1();
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

FmrMain.cpp：

//---------------------------------------------------------------------------
#include <fmx.h>
#pragma hdrstop

#include "FmrMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.fmx"
TForm1 *Form1;

const String TForm1::Hello = "Hello";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
    ShowMessage(Hello);
}

void __fastcall TForm1::~TForm1()
{
    ShowMessage(Hello);
}
//---------------------------------------------------------------------------

或者，使用wchar_t* 而不是String，那么您不会遇到任何清理问题：

//---------------------------------------------------------------------------
#include <fmx.h>
#pragma hdrstop

#include "FmrMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.fmx"
TForm1 *Form1;

static const wchar_t* Hello = L"Hello";
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
    ShowMessage(Hello);
}

void __fastcall TForm1::~TForm1()
{
    ShowMessage(Hello);
}
//---------------------------------------------------------------------------