zoukankan      html  css  js  c++  java
  • 如何利用预编译指令来判断Delphi 的版本转载


    条件符号 含义

    VERxx 编译器版本,XX表示版本,例如:Delphi 1.0 的编译器版本为80、Delphi 5.0 的编译器版本为130
    WIN32 是否WIN32的运行环境(Windows 95.98/NT/2000)
    CPU386 是否Intel386以上的处理器
    CONSOLE 是否控制台程序

    用   {$IFDEF   VER1XX}   来判断 
      
      //   Delphi   4 
      {$IFDEF   VER120} 
          {$DEFINE   VCL4ORABOVE} 
          {$DEFINE   VCL4O} 
          {$DEFINE   DELPHI} 
          {$DEFINE   DELPHI4} 
          {$DEFINE   OVERLOADING} 
          {$DEFINE   OPTIONALPARAMS} 
      {$ENDIF} 
      
      //   C++   Builder   4 
      {$IFDEF   VER125} 
          {$DEFINE   VCL4ORABOVE} 
          {$DEFINE   VCL4O} 
          {$DEFINE   CBUILDER} 
          {$DEFINE   CBUILDER4} 
          {$DEFINE   OVERLOADING} 
          {$DEFINE   OPTIONALPARAMS} 
      {$ENDIF} 
      
      //   Delphi   5   &   CBuilder   5 
      {$IFDEF   VER130} 
          {$DEFINE   VCL4ORABOVE} 
          {$DEFINE   VCL5ORABOVE} 
          {$DEFINE   VCL5O} 
          {$IFDEF   BCB} 
              {$DEFINE   CBUILDER} 
              {$DEFINE   CBUILDER5} 
          {$ELSE} 
              {$DEFINE   DELPHI} 
              {$DEFINE   DELPHI5} 
          {$ENDIF} 
          {$DEFINE   OVERLOADING} 
          {$DEFINE   OPTIONALPARAMS} 
          {$DEFINE   SAMETEXT} 
      {$ENDIF} 
      
      //Delphi   6 
      {$IFDEF   VER140} 
          {$DEFINE   VCL4ORABOVE} 
          {$DEFINE   VCL5ORABOVE} 
          {$IFDEF   BCB} 
              {$DEFINE   CBUILDER} 
              {$DEFINE   CBUILDER6} 
          {$ELSE} 
              {$DEFINE   DELPHI} 
              {$DEFINE   DELPHI6} 
          {$ENDIF} 
          {$DEFINE   OVERLOADING} 
          {$DEFINE   OPTIONALPARAMS} 
          {$DEFINE   SAMETEXT} 
          {$DEFINE   VCL6ORABOVE} 
          {$DEFINE   VCL6O} 
      {$ENDIF} 
      
      //Delphi   7 
      {$IFDEF   VER150} 
          {$DEFINE   VCL4ORABOVE} 
          {$DEFINE   VCL5ORABOVE} 
          {$IFDEF   BCB} 
              {$DEFINE   CBUILDER} 
              {$DEFINE   CBUILDER7} 
          {$ELSE} 
              {$DEFINE   DELPHI} 
              {$DEFINE   DELPHI7} 
          {$ENDIF} 
          {$DEFINE   OVERLOADING} 
          {$DEFINE   OPTIONALPARAMS} 
          {$DEFINE   SAMETEXT} 
          {$DEFINE   VCL6ORABOVE} 
          {$DEFINE   VCL7ORABOVE} 
          {$DEFINE   VCL6O} 
          {$DEFINE   VCL70} 
      {$ENDIF} 
      
      //Delphi   8 
      {$IFDEF   VER160} 
          {$DEFINE   VCL4ORABOVE} 
          {$DEFINE   VCL5ORABOVE} 
          {$IFDEF   BCB} 
              {$DEFINE   CBUILDER} 
              {$DEFINE   CBUILDER8} 
          {$ELSE} 
              {$DEFINE   DELPHI} 
              {$DEFINE   DELPHI8} 
          {$ENDIF} 
          {$DEFINE   OVERLOADING} 
          {$DEFINE   OPTIONALPARAMS} 
          {$DEFINE   SAMETEXT} 
          {$DEFINE   VCL6ORABOVE} 
          {$DEFINE   VCL7ORABOVE} 
          {$DEFINE   VCL80RABOVE} 
          {$DEFINE   VCL6O} 
          {$DEFINE   VCL70} 
          {$DEFINE   VCL80} 
      {$ENDIF} 
      
      //Delphi   9 
      {$IFDEF   VER170} 
          {$DEFINE   VCL4ORABOVE} 
          {$DEFINE   VCL5ORABOVE} 
          {$IFDEF   BCB} 
              {$DEFINE   CBUILDER} 
              {$DEFINE   CBUILDER9} 
          {$ELSE} 
              {$DEFINE   DELPHI} 
              {$DEFINE   DELPHI9} 
          {$ENDIF} 
          {$DEFINE   OVERLOADING} 
          {$DEFINE   OPTIONALPARAMS} 
          {$DEFINE   SAMETEXT} 
          {$DEFINE   VCL6ORABOVE} 
          {$DEFINE   VCL7ORABOVE} 
          {$DEFINE   VCL80RABOVE} 
          {$DEFINE   VCL9ORABOVE} 
          {$DEFINE   VCL6O} 
          {$DEFINE   VCL70} 
          {$DEFINE   VCL80} 
          {$DEFINE   VCL90} 
      {$ENDIF} 
      
      //Delphi   10 
      {$IFDEF   VER180} 
          {$DEFINE   VCL4ORABOVE} 
          {$DEFINE   VCL5ORABOVE} 
          {$IFDEF   BCB} 
              {$DEFINE   CBUILDER} 
              {$DEFINE   CBUILDER10} 
          {$ELSE} 
              {$DEFINE   DELPHI} 
              {$DEFINE   DELPHI10} 
          {$ENDIF} 
          {$DEFINE   OVERLOADING} 
          {$DEFINE   OPTIONALPARAMS} 
          {$DEFINE   SAMETEXT} 
          {$DEFINE   VCL6ORABOVE} 
          {$DEFINE   VCL7ORABOVE} 
          {$DEFINE   VCL80RABOVE} 
          {$DEFINE   VCL9ORABOVE} 
          {$DEFINE   VCL1O0RABOVE} 
          {$DEFINE   VCL6O} 
          {$DEFINE   VCL70} 
          {$DEFINE   VCL80} 
          {$DEFINE   VCL90} 
          {$DEFINE   VCL100} 
      {$ENDIF} 
      
      {$IFDEF   LINUX} 
          {$DEFINE   VCL4ORABOVE} 
          {$DEFINE   VCL5ORABOVE} 
          {$DEFINE   OVERLOADING} 
          {$DEFINE   OPTIONALPARAMS} 
          {$DEFINE   SAMETEXT} 
          {$DEFINE   VCL6ORABOVE} 
          {$DEFINE   VCL6O} 
          {$UNDEF   DELPHI6} 
          {$DEFINE   KYLIX} 
          {$IFDEF   CONDITIONALEXPRESSIONS} 
              {$IF   RTLVersion   =   14.0} 
              {$DEFINE   KYLIX2} 
              {$IFEND} 
              {$IF   RTLVersion   =   14.50} 
              {$DEFINE   KYLIX3} 
              {$IFDEF   BCB} 
                  {$DEFINE   BCBKYLIX3} 
              {$ENDIF} 
              {$IFEND} 
              {$IF   RTLVersion   =   15.0} 
              {$DEFINE   KYLIX4} 
              {$IFEND} 
          {$ENDIF} 
      {$ENDIF}

  • 相关阅读:
    直接选择排序(C++模版技术实现)
    求素数
    快速排序(C++模版技术实现)
    堆排序(C++模版技术实现)
    简单链式二叉树(C++模版技术实现)
    归并排序(C++模版技术实现)
    求斐波那契数列的两种解法
    C++中改变setw(n)的对齐方式
    C中的64位整型
    Windows版GCC之TDMGCC 4.5.2
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/3183822.html
Copyright © 2011-2022 走看看