From: Lasse Vågsæther Karlsen <lasse@cintra.no>
Subject: Re: D5: version conditional compiler directive
Date: 01 Oct 1999 00:00:00 GMT
Message-ID: <TqX0N0CNdeBeWDz9a6M4u9VbFiVv@4ax.com>
Content-Transfer-Encoding: 8bit
References: <37F484A1.7613F9EE@treppenmeister.com>
Organization: Cintra Software Engineering AS
Content-Type: text/plain; charset=ISO-8859-1
Mime-Version: 1.0
Newsgroups: borland.public.delphi.objectpascal

On Fri, 01 Oct 1999 11:53:37 +0200, Wolfram Herzel-Matsumura
<whm@treppenmeister.com> wrote:

>Hello,
>
>In former versions of Delphi there was a compiler directive (like
>{$ifdef Ver100} in Delphi 3.0) to compile some code only for that
>specific version of Delphi.
>
>For Delphi 5 I tried Ver120, Ver121, Ver122, etc. but none was working.
>Which is the correct one for Delphi 5?
>
>Wolfram

VER130.

Included below is a include file I use.

cut here >>>

////////////////////////////////////////////////////////////////////////////////
// File        : VERSIONS.INC
// Description : Supply a better list of defines than simply VERxxx
// Author      : Lasse Vågsæther Karlsen <lasse@cintra.no>
// Copyright   : (C) 1999 Lasse Vågsæther Karlsen

// $Author: Lasse $
// $Revision: 1 $
// $Date: 1.10.99 14:17 $
// $Archive: /Komponenter/Utils/VERSIONS.INC $

////////////////////////////////////////////////////////////////////////////////
// First define the proper version define
{$UNDEF DELPHI1}  {$IFDEF VER80}  {$DEFINE DELPHI1} {$ENDIF}
{$UNDEF DELPHI2}  {$IFDEF VER90}  {$DEFINE DELPHI2} {$ENDIF}
{$UNDEF BCB1}     {$IFDEF VER93}  {$DEFINE BCB1}    {$ENDIF}
{$UNDEF DELPHI3}  {$IFDEF VER100} {$DEFINE DELPHI3} {$ENDIF}
{$UNDEF BCB3}     {$IFDEF VER110} {$DEFINE BCB3}    {$ENDIF}
{$UNDEF DELPHI4}  {$IFDEF VER120} {$DEFINE DELPHI4} {$ENDIF}
{$UNDEF BCB4}     {$IFDEF VER125} {$DEFINE BCB4}    {$ENDIF}
{$UNDEF DELPHI5}  {$IFDEF VER130} {$DEFINE DELPHI5} {$ENDIF}

{$IFDEF DELPHI1}  {$DEFINE DELPHI}
                  {$DEFINE DELPHI1UP} {$ENDIF}
{$IFDEF DELPHI2}  {$DEFINE DELPHI}
                  {$DEFINE DELPHI1UP}
                  {$DEFINE DELPHI2UP} {$ENDIF}
{$IFDEF DELPHI3}  {$DEFINE DELPHI}
                  {$DEFINE DELPHI1UP}
                  {$DEFINE DELPHI2UP}
                  {$DEFINE DELPHI3UP} {$ENDIF}
{$IFDEF DELPHI4}  {$DEFINE DELPHI}
                  {$DEFINE DELPHI1UP}
                  {$DEFINE DELPHI2UP}
                  {$DEFINE DELPHI3UP}
                  {$DEFINE DELPHI4UP} {$ENDIF}
{$IFDEF DELPHI5}  {$DEFINE DELPHI}
                  {$DEFINE DELPHI1UP}
                  {$DEFINE DELPHI2UP}
                  {$DEFINE DELPHI3UP}
                  {$DEFINE DELPHI4UP}
                  {$DEFINE DELPHI5UP} {$ENDIF}
{$IFDEF BCB1}     {$DEFINE BCB}
                  {$DEFINE BCB1UP}    {$ENDIF}
{$IFDEF BCB3}     {$DEFINE BCB}
                  {$DEFINE BCB1UP}
                  {$DEFINE BCB3UP}    {$ENDIF}
{$IFDEF BCB4}     {$DEFINE BCB}
                  {$DEFINE BCB1UP}
                  {$DEFINE BCB3UP}
                  {$DEFINE BCB4UP}    {$ENDIF}

////////////////////////////////////////////////////////////////////////////////
// Require one of the 'known' compiler versions at this time
{$IFNDEF DELPHI}{$IFNDEF BCB}
  This unit requires Delphi version 1.x-5.x or BCB version 1, 3 or 4
{$ENDIF}{$ENDIF}

////////////////////////////////////////////////////////////////////////////////
// Now set the integer-size for this compiler
{$IFDEF DELPHI}
  {$IFDEF DELPHI2UP}
    {$DEFINE SIZE_32}
  {$ELSE}
    {$DEFINE SIZE_16}
  {$ENDIF}
{$ELSE}
  // BCB
  {$DEFINE SIZE_32}
{$ENDIF}

////////////////////////////////////////////////////////////////////////////////
// Set language feature defines
{$IFDEF DELPHI}
  {$IFDEF DELPHI3UP}
    {$DEFINE HAS_INTERFACE}     // Compiler has support for interfaces
  {$ENDIF}
  {$IFDEF DELPHI4UP}
    {$DEFINE HAS_LONGWORD}      // Compiler has the data type LONGWORD
    {$DEFINE HAS_DEFAULTPARAMS} // Compiler supports default
parameters
    {$DEFINE HAS_OVERLOAD}      // Compiler has the OVERLOAD directive
    {$DEFINE HAS_INT64}         // Compiler has the data type INT64
    {$DEFINE HAS_DYNAMICARRAYS} // Compiler support dynamic arrays
    {$DEFINE HAS_NEWVCL}        // VCL has new properties like
Constraints etc.
    {$DEFINE HAS_IMPLEMENTS}    // Compiler has the IMPLEMENTS keyword
  {$ENDIF}
{$ELSE}
  {$IFDEF BCB3UP}
    {$DEFINE HAS_INTERFACE}     // Compiler has support for interfaces
  {$ENDIF}
  {$IFDEF BCB4UP}
    {$DEFINE HAS_LONGWORD}      // Compiler has the data type LONGWORD
    {$DEFINE HAS_DEFAULTPARAMS} // Compiler supports default
parameters
    {$DEFINE HAS_OVERLOAD}      // Compiler has the OVERLOAD directive
    {$DEFINE HAS_INT64}         // Compiler has the data type INT64
    {$DEFINE HAS_DYNAMICARRAYS} // Compiler support dynamic arrays
    {$DEFINE HAS_NEWVCL}        // VCL has new properties like
Constraints etc.
    {$DEFINE HAS_IMPLEMENTS}    // Compiler has the IMPLEMENTS keyword
  {$ENDIF}
{$ENDIF}

//
// $History: VERSIONS.INC $
 *
 * *****************  Version 1  *****************
 * User: Lasse        Date: 1.10.99    Time: 14:17
 * Created in $/Komponenter/Utils
 * Version defines
//

<<< cut here