defines.inc

来自「Delphi XML & XPATH源代码」· INC 代码 · 共 28 行

{ Define flags for different Delphi versions }

{$IFDEF VER120}  { Delphi 4 }
{$DEFINE D4}
{$DEFINE D4UP}
{$ENDIF}

{$IFDEF VER130}  { Delphi 5 }
{$DEFINE D5}
{$DEFINE D4UP}
{$DEFINE D5UP}
{$ENDIF}

{$IFDEF VER140}  { Delphi 6 }
{$DEFINE D6}
{$DEFINE D4UP}
{$DEFINE D5UP}
{$DEFINE D6UP}
{$ENDIF}

{$IFDEF VER150}  { Delphi 7 }
{$DEFINE D7}
{$DEFINE D4UP}
{$DEFINE D5UP}
{$DEFINE D6UP}
{$DEFINE D7UP}
{$ENDIF}