C++ builder XE4 上的 AssertErrorProc

Question

我正在研究 C++ Builder XE4 上的 AssertErrorProc。 我找到的delphi代码如下。

procedure AssertErrorHandler(
    const iMsg, iFilename: String;
    const iLineNo: Integer;
    const iAddress: Pointer);
var
    Err: String;
begin
    Err :=
      Format(
        '%s (%s line %d @ %x)',
        [iMsg, iFilename, iLineNo, Integer(iAddress)]);
    ShowMessage(Err);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    AssertErrorProc = AssertErrorHandler;
    Assert(false);
end;

我很想将上面的代码转换成 C++ 代码，如下所示。

void __fastcall TForm1::AssertErrorHandler(const String iMsg,
    const String iFilename, const int iLineNo,
    const void* iAddress)

{
    String Err;

    Err = Format(L"%s (%s line %d @ %x)",
        [iMsg, iFilename, iLineNo, Integer(iAddress)]);  // E2188
    ShowMessage(Err);

}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    AssertErrorProc = AssertErrorHandler;  // E2235, E2268
    Assert(false);
}

我在编译代码时收到了两个错误。

1. 在 Format() 语句 (E2188)

2. AssertErrorHandler (E2235, E2268) 赋值时

感谢任何我应该修改代码的信息。

Answer 1

以上方法仅在Delphi中可用，在C++中你应该定义自定义断言为宏：

#ifdef _DEBUG
    #undef assert
    #define assert(condition) if(!condition) assertHandler(__FILE__, __LINE__, __FUNCTION__, #condition);
#endif

void assertHandler(const char *fileName, int line, const char *function,
    const char *condition)
{
    char message[255];
    wsprintfA(message, "Assertion failed at %s line %d inside %s condition: %s",
        fileName, line, function, condition);
    ShowMessage(message);
    abort();
}

用法：

assert(myVar > 0);