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