Delphi Compiler Version symbols or constants used with IFDEF - ENDIF

-
If you plan on writing Delphi code that should work with several versions of the Delphi compiler then we first need to know under which versions our code gets compiled. Suppose you are writing your own (commercial) custom component. Users of your component might have different Delphi versions than you have. If they try to recompile the component's code - they might be in trouble! What if you were using default parameters in your functions and the user has Delphi 3?


These are symbols that can be used in $IFDEF /$ENDIF conditional compilation directives.
{$IFDEF VER40}  - Turbo pascal 4
{$IFDEF VER50}  - Turbo pascal 5
{$IFDEF VER55}  - Turbo pascal 5.5
{$IFDEF VER60}  - Turbo pascal 6
{$IFDEF VER70}  - Borland pascal 7 (And turbo pascal 1.5 for windows)
{$IFDEF VER80}  - Delphi 1
{$IFDEF VER90}  - Delphi 2
{$IFDEF VER100} - Delphi 3
{$IFDEF VER120} - Delphi 4
{$IFDEF VER130} - Delphi 5
{$IFDEF VER140} - Delphi 6
{$IFDEF VER150} - Delphi 7
{$IFDEF VER160} - Delphi 8
{$IFDEF VER170} - Delphi 2005
{$IFDEF VER180} - Delphi 2006
{$IFDEF VER180} - Delphi 2007
{$IFDEF VER185} - Delphi 2007
{$IFDEF VER200} - Delphi 2009
{$IFDEF VER210} - Delphi 2010
{$IFDEF VER220} - Delphi XE
{$IFDEF VER230} - Delphi XE2
{$IFDEF VER240} - Delphi XE3
{$IFDEF VER250} - Delphi XE4
{$IFDEF VER260} - Delphi XE5
{$IFDEF VER265} - Appmethod 1.0
{$IFDEF VER270} - Delphi XE6
{$IFDEF VER280} - Delphi XE7
{$IFDEF VER290} - Delphi XE8
{$IFDEF VER300} - Delphi 10 Seattle
{$IFDEF VER310} - Delphi 10.1 Berlin

Example
{$IFDEF VER150}
    //some delphi 7-specific code here
{$ENDIF}
{$IFDEF VER210}
    //some delphi 2010-specific code here
{$ENDIF}
{$IFDEF VER310}
    //some delphi 10-specific code here
{$ENDIF}

CompilerVersion constant
The CompilerVersion constant was introduced in Delphi 6 along with conditional expressions. The CompilerVersion constant identifies the internal version number of the Delphi compiler. It is defined in the System unit and may be referenced either in code just as any other constant.

We can use CompilerVersion constant in following ways...
if CompilerVersion = 15 then
   sCompilerName := 'Delphi 7';
if CompilerVersion = 20 then
   sCompilerName := 'Delphi 2009';
if CompilerVersion = 30 then
   sCompilerName := 'Delphi 10 Seattle';
or 
in conditional compiler expressions:
{$if CompilerVersion > 18} 
    // some code only compiled for Delphi 2007 or later 
{$ifend}
{$if CompilerVersion >= 25} 
    // some code only compiled for Delphi XE4 or later 
{$ifend}

Conditional Define constants for Windows, Linux and Delphi
To write different code in a single file that targets Windows, Linux and Delphi you could use this type of conditional compilation block:
{$IFDEF LINUX}
  //do Linux-specific code here
{$ENDIF}
{$IFDEF MSWINDOWS}
  //do Windows-specific code here
{$ENDIF}
{$IFDEF CLR}
  //do .NET-specific code here
{$ENDIF}
Or alternatively this form, which is functionally equivalent:
{$IF Defined(LINUX)}
  //do Linux-specific code here
{$ELSEIF Defined(MSWINDOWS)}
  //do Windows-specific code here
{$ELSEIF Defined (CLR)}
  //do .NET-specific code here
{$IFEND}

Comments

Post a Comment

Popular posts from this blog

MS Excel Automation in Delphi

-
In this blog I will describe how to read and write data from and to an Excel file. Sometime in our application we use Excel for reporting purpose, for data import / export purpose and for other works. So here I will explain how to access an Excel file and use for data read / write. For this Excel 2003 or later should have installed in our system. First use Excel2000 unit to uses clause. This unit comes with Delphi installation it self. You can get the unit in installed path C:\Program Files (x86)\Embarcadero\RAD Studio\10.0\OCX\Servers Uses    Excel2000; Before proceed I would mention an important word  LCID which is required at most places. So what it LCID? LCID = In Microsoft Excel, the LCID indicates the currency symbol to be used when this is an xlListDataTypeCurrency type.  Returns 0 (which is the Language Neutral LCID) when no locale is set for the data type of the column. We can get LCID in Delphi by using  GetUserDefaultLCID...
Read more

ShellExecute in Delphi

-
ShellExecute in Delphi – Launch external applications. ShellExecute is Delphi Windows API function that is mostly used for launch external applications from our Delphi application. This function is linked to the ShellExecute Windows  API function. The function returns an integer that corresponds to an error code which is very useful when we need to show some status  if the function worked  or not . By using ShellExecute we can also do following operations.... Can print documents from within my program, without explicitly starting the application  that created the document, such as: print a Word-document without starting Word. Can open browser with a local HTML page Can surf to a site i.e. open an external URL link from a Delphi application Can send mails thorugh outlook Syntax of Windows API function HINSTANCE ShellExecute(   _In_opt_        HWND hwnd,   _In_opt_        LPCTSTR lp...
Read more

Drawing Shapes in Delphi

-
Image
Believe me, drawing shapes in Delphi is so easy. To develop a software like CAD, Paint, CorelDraw Delphi provides large number of classes and members that supports to draw shapes on a form or on a graphic control. In Delphi, we draw shapes on canvas of a form or graphic controls. Canvas is an area of form where we can draw shapes, lines and can fill colors on shapes. In Delphi, every form or graphic controls have Canvas property which provides TCanvas object that can be used to draw shapes. TPen object is used to draw lines and we can set size, color of lines. TBrush object is used to set color and style to fill the shapes. Most frequently used classes for drawing shapes are TCanvas , TBitmap, TGraphics, TPen, TBrush TCanvas Use TCanvas as a drawing surface for objects that draw an image of themselves TBitmap   Bitmap is a powerful graphics object used to create, manipulate (scale, scroll, rotate, and paint), and store images in memory and as files on a disk....
Read more