delphi - Delphi 10.2 中未设置编译器指令

Question

我的 delphi 项目中有以下单元实现。

uses
{$IFDEF Ver270} JSON, {$ELSE} DBXJSON, {$ENDIF}

在 Delphi XE4 中将实现 DBXJSON - 这很好。在 Delphi XE6 中将实现 JSON - 这也很好。

但在 Delphi 10.2 中，将实现 DBXJSON - 而不是 JSON。为什么？这是 Delphi 10.2 中的错误吗？

Answer 1

这不是错误，而是设计使然。每个版本都有一个 VERXXX 定义。 VER270 仅在 XE6 和 XE6 中定义。对于版本 10.2，定义了 VER320。

在您的场景中，使用这样的代码要简单得多:

uses
  {$IF RTLVersion >= 27} JSON, {$ELSE} DBXJSON, {$IFEND}

另一种选择是使用标准包含文件，例如 jedi.inc。这消除了此类条件语句的痛苦。如果您使用 jedi.inc 那么您可以像这样编码:

uses
  {$IFDEF DELPHIXE6_UP} JSON, {$ELSE} DBXJSON, {$ENDIF}