Delphi 单位中的无穷大被转换为 .hpp 文件中的 +INF

Question

我使用 C++Builder XE6 并编写了以下 Delphi 单元：

unit JSONUtils;

interface

uses
  System.JSON, System.Math;

function GetJSONDouble (Value: TJSONValue; Path: string; Default: Double = Infinity): Double;

implementation

function GetJSONDouble (Value: TJSONValue; Path: string; Default: Double): Double;
begin
  Result := Value.GetValue<Double>(Path, Default);
end;

end.

编译时，生成以下 .hpp 文件：

// CodeGear C++Builder
// Copyright (c) 1995, 2014 by Embarcadero Technologies, Inc.
// All rights reserved

// (DO NOT EDIT: machine generated header) 'JSONUtils.pas' rev: 27.00 (Windows)

#ifndef JsonutilsHPP
#define JsonutilsHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member 
#pragma pack(push,8)
#include <System.hpp>   // Pascal unit
#include <SysInit.hpp>  // Pascal unit
#include <System.JSON.hpp>  // Pascal unit
#include <System.Math.hpp>  // Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Jsonutils
{
//-- type declarations -------------------------------------------------------
//-- var, const, procedure ---------------------------------------------------
extern DELPHI_PACKAGE double __fastcall GetJSONDouble(System::Json::TJSONValue* Value, System::UnicodeString Path, double Default = +INF);
}   /* namespace Jsonutils */
#if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_JSONUTILS)
using namespace Jsonutils;
#endif
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif  // JsonutilsHPP

请注意 .pasInfinity 的默认值code> 文件被转换为 .hpp 文件中的 +INF。

当我在 C++ 单元中包含 .hpp 文件时，出现以下编译器错误：

[bcc32 Error] JSONUtils.hpp(26): E2451 Undefined symbol 'INF'

可以理解，因为 INF 未在 System.Math.hpp< 中定义/code>，但Infinity 是。

如何让编译器将 Infinity（或 HUGE_VAL）输出到 .hpp 文件而不是 +INF ？

Answer 1

如何让编译器将 Infinity（或 HUGE_VAL）输出到 .hpp 文件而不是 +INF< /代码>？




AFAIK，你不知道。这就是 Delphi 编译器选择将 Infinity 翻译为 C++ 的方式。请随时向 Embarcadero 提交错误报告。

同时，作为一种解决方法，您可以尝试使用 GetJSONDouble “nofollow noreferrer”>{$NODEFINE} 或 {$EXTERNALSYM} 以避免 Delphi 编译器在 .hpp 中输出默认声明，然后使用 {$HPPEMIT} 声明 GetJSONDouble () 自己，例如：

unit JSONUtils;

interface

uses
  System.JSON, System.Math;

{$EXTERNALSYM GetJSONDouble}
function GetJSONDouble (Value: TJSONValue; Path: string; Default: Double = Infinity): Double;

{$HPPEMIT OPENNAMESPACE}
{$HPPEMIT 'extern DELPHI_PACKAGE double __fastcall GetJSONDouble(System::Json::TJSONValue* Value, System::UnicodeString Path, double Default = System::Math::Infinity);'}
{$HPPEMIT CLOSENAMESPACE}

implementation

function GetJSONDouble (Value: TJSONValue; Path: string; Default: Double): Double;
begin
  Result := Value.GetValue<Double>(Path, Default);
end;

end.