如何利用预编译指令来判断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}

上一篇:三层ViewPager嵌套 的事件处理


下一篇:Python for Informatics 第11章 正则表达式一(译)