条件符号 含义
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}
|
请发表评论