如何在Delphi中定义版本“和up”ifdefs？

Question

我正在努力让Log4D在Delphi XE4中运行，并且因为它无法在uses子句中找到Contnrs而得到一些编译错误，除非我把它移到了它定义的ifdef之外。

{$IFDEF DELPHI5_UP}
  Contnrs,
{$ENDIF}

一些调查发现ifdef是在一个包含的文件Defines.inc中定义的，它有一个块，每个＆＃34;支持＆＃34; delphi的版本，它会停止几个版本：

例如：

{$IFDEF VER170}  { Delphi 2005 }
{$DEFINE DELPHI9}
{$DEFINE DELPHI4_UP}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}
{$ENDIF}

{$IFDEF VER180}  { Delphi 2006 }
{$DEFINE DELPHI10}
{$DEFINE DELPHI4_UP}
{$DEFINE DELPHI5_UP}
{$DEFINE DELPHI6_UP}
{$DEFINE DELPHI7_UP}

因此，虽然继续为Delphi 2006复制并粘贴ifdef并创建一个Delphi XE4块也很容易......但这似乎是一个不优雅的解决方案。它绝对不是未来的证据...你现在需要更新这个文件的所有新版本，所以Delphi 4中没有的一些代码不能让其他人15岁以上岁的遗留代码爆炸。

所以我想知道是否有更好的方法来进行条件编译，这样才能检查你是否有＆＃34; Delphi 5或更高版本＆＃34;在编译该行时，而不是这种格式需要更新每个新版本的delphi。

Answer 1

如果我是一个组件供应商（TMS，DevEx），我可能会觉得有必要坚持每个delphi版本都支持的冗长冗长的语法。这就是大多数组件代码库中存在大混乱的原因。

然而，对于我自己的内部组件，我不会更新每个版本，因为我的ver.inc文件看起来像这样，而且我不支持任何不支持这种新语法的Delphi版本：

{ver.inc}

{ MYSOFT VERSION DEFINES }


{$IF CompilerVersion >= 22.0}
{$DEFINE RTL220_UP}
{$DEFINE XE_UP}
{$IFEND}

{$IF CompilerVersion >= 23.0}
{$DEFINE RTL230_UP}
{$DEFINE XE2_UP}
{$IFEND}

{$IF CompilerVersion >= 24.0}
{$DEFINE RTL240_UP}
{$DEFINE XE3_UP}
{$IFEND}

{$IF CompilerVersion >= 25.0}
{$DEFINE RTL250_UP}
{$DEFINE XE4_UP}

{$IFEND}

{$IF CompilerVersion >= 26.0}
{$DEFINE RTL250_UP}
{$DEFINE XE5_UP}
{$IFEND}

{$DEFINE OTHER_THING}

当新的delphi版本问世时，上面的代码中没有任何内容破坏。请注意，我不需要使用我的代码库来支持Delphi 5到2010。事实上，我只支持XE2及以上。

上述表格的稍长版本可用于支持Delphi 6及更高版本的每个版本，不需要任何重复的块，并且每次都不会破坏新的delphi版本。

另外，请参阅Uwe的答案，了解一种技术，您可以构建一个支持每个版本的.inc文件，并且仅使用旧版本的旧版delphi版本。

Answer 2

IIRC，Delphi 6引入了条件表达式，这实际上是TLama建议的。为了使您的代码能够使用下面的Delphi版本，您必须检查{$IFDEF CONDITIONALEXPRESSIONS }。如果未定义，则必须使用旧的VERxxx方案来区分Delphi版本。

对于Delphi 6及更高版本，您可以使用内置常量CompilerVersion和RTLVersion。您使用以下哪些取决于您的代码。每当您对CompilerVersion使用新的编译器功能测试时。对于与RTLVersion的RTL或VCL测试相关的任何内容。

对最新的编译器进行编码总是一个好主意，只使用条件部分来兼容旧版本。因此，不要以{$IF CompilerVersion >= 26.0}编写代码，而是以{$IF CompilerVersion < 26.0}的方式编写代码。因此，将来放弃对旧版本编译器的支持要容易得多。

Answer 3

为了将来找到这个问题的任何人的利益，我认为可能值得记录我的最终解决方案，因为它结合了所有答案和评论中的一点点来使它工作，并且它找到了我还有一些例子可以真正理解如何使用上面的一些建议。

为了处理Delphi 6之前不支持{$IF}的版本，我将它们保留为原样。你最多只有5个，但在我的情况下它只有2个：

{$IFDEF VER120}  { Delphi 4 }
  {$DEFINE DELPHI4}
  {$DEFINE DELPHI4_UP}
{$ENDIF}

{$IFDEF VER130}  { Delphi 5 }
  {$DEFINE DELPHI4_UP}
  {$DEFINE DELPHI5_UP}
{$ENDIF}

然后对于支持{$ IF}（Delphi 6+）的版本，我按照Uwe的建议将它们包装在{$IFDEF CONDITIONALEXPRESSIONS }块中。一旦我知道正确的搜索条件，Embarcadero文档就会给出nice example of this。

结合Warren关于在编译器版本上使用大于或等于IF块的建议，显着简化了事情：

{$IFDEF CONDITIONALEXPRESSIONS} { Delphi 6+ }

  {$IF CompilerVersion >= 14.0} { Delphi 6+ }
    {$DEFINE DELPHI4_UP}
    {$DEFINE DELPHI5_UP}
    {$DEFINE DELPHI6_UP}
  {$IFEND}

  {$IF CompilerVersion >= 15.0} { Delphi 7+ }
    {$DEFINE DELPHI7_UP}
  {$IFEND}

{$ENDIF}

Embarcadero有一个helpful whole chart，其中包含Delphi的所有版本及其命名常量，以及惯用的Package Name。在那个和stack overflow answer之间，我能够填写所有编译器版本常量。

一旦我在那里获得了这个块，我根本不需要在我的问题中使用Delphi 2005/2006块，XE4很乐意编译。

我喜欢Uwe建议编码版本X及以下版本，而不是Y及以上版本，尽管我没有立即使用该建议，因为它可能会重做IFs和IFDEF首先要删除对Delphi 3的支持; - ）。

Answer 4

答案比我想象的要简单。来自documentation：

  

例如，要确定用于编译代码的编译器和运行时库的版本，可以使用{$ IF}与 CompilerVersion ， RTLVersion 和其他常数。

以下是从6到10.3（Rio）检测Delphi版本的完整代码：

{$IFNDEF FPC}
  {$IF CompilerVersion >= 33.0}
    {$DEFINE DELPHI_10_3_RIO_UP}
  {$IFEND}
  {$IF CompilerVersion >= 32.0}
    {$DEFINE DELPHI_10_2_TOKYO_UP}
  {$IFEND}
  {$IF CompilerVersion >= 31.0}
    {$DEFINE DELPHI_10_1_BERLIN_UP}
  {$IFEND}
  {$IF CompilerVersion >= 30.0}
    {$DEFINE DELPHI_10_SEATTLE_UP}
  {$IFEND}
  {$IF CompilerVersion >= 29.0}
    {$DEFINE DELPHI_XE8_UP}
  {$IFEND}
  {$IF CompilerVersion >= 28.0}
    {$DEFINE DELPHI_XE7_UP}
  {$IFEND}
  {$IF CompilerVersion >= 27.0}
    {$DEFINE DELPHI_XE6_UP}
  {$IFEND}
  {$IF CompilerVersion >= 26.0}
    {$DEFINE DELPHI_XE5_UP}
  {$IFEND}
  {$IF CompilerVersion >= 25.0}
    {$DEFINE DELPHI_XE4_UP}
  {$IFEND}
  {$IF CompilerVersion >= 24.0}
    {$DEFINE DELPHI_XE3_UP}
  {$IFEND}
  {$IF CompilerVersion >= 23.0}
    {$DEFINE DELPHI_XE2_UP}
  {$IFEND}
  {$IF CompilerVersion >= 22.0}
    {$DEFINE DELPHI_XE_UP}
  {$IFEND}
  {$IF CompilerVersion >= 21.0}
    {$DEFINE DELPHI_2010_UP}
  {$IFEND}
  {$IF CompilerVersion >= 20.0}
    {$DEFINE DELPHI_2009_UP}
  {$IFEND}
  {$IF CompilerVersion >= 19.0}
    {$DEFINE DELPHI_2007_FOR_NET_UP}
  {$IFEND}
  {$IF CompilerVersion >= 18.5}
    {$DEFINE DELPHI_2007_UP}
  {$IFEND}
  {$IF CompilerVersion >= 18.0}
    {$DEFINE DELPHI_2006_UP}
  {$IFEND}
  {$IF CompilerVersion >= 17.0}
    {$DEFINE DELPHI_2005_UP}
  {$IFEND}
  {$IF CompilerVersion >= 16.0}
    {$DEFINE DELPHI_8_FOR_NET_UP}
  {$IFEND}
  {$IF CompilerVersion >= 15.0}
    {$DEFINE DELPHI_7_UP}
  {$IFEND}
  {$IF CompilerVersion >= 14.0}
    {$DEFINE DELPHI_6_UP}
  {$IFEND}
{$ENDIF}

您可以找到整个编译器版本列表，例如here。