[DELPHI] VERSIONS DE DELPHI, QUELQUES SPECIFICATIONS

Delphi 1 
   Date          : 1995 (?)
   Systeme       : windows 16 bits

   API Windows   : jusqu'a windows 3.x/NT3

   Status        : obsolete
   Ou le trouver : disponible sur le CD de Delphi 2 et 3
    
   Identifiant version : VER80 
   Version RTL         : RTLVersion = 8.0


Delphi 2
   Date          : 1996 (?)
   Systeme       : windows 16/32 bits

   API Windows   : jusqu'a windows 95/NT

   Status        : obsolete
   Ou le trouver : ---
 
   Identifiant version : VER90
   Version RTL         : RTLVersion = 9.0


Delphi 3
   Date          : 1997 (?)
   Systeme       : windows 32 bits

   API Windows   : jusqu'a windows NT

   Status        : obsolete
   Ou le trouver : ---
 
   Identifiant version : VER100
   Version RTL         : RTLVersion = 10.0


Delphi 4
   Date          : 1997 (?)
   Systeme       : windows 32 bits

   API Windows   : jusqu'a windows NT

   Status        : obsolete
   Ou le trouver : ---

   Identifiant version : VER120
   Version RTL         : RTLVersion = 12.0


Delphi 5
   Date          : 1998 (?)
   Systeme       : windows 32 bits

   API Windows   : jusqu'a windows NT

   Status        : obsolete mais operationnel pour de petits projets
   Ou le trouver : ---
 
   Identifiant version : VER130
   Version RTL         : RTLVersion = 13.0


Delphi 6
   Date          : 2001
   Systeme       : windows 32 bits
 
   API Windows   : jusqu'a windows XP
   Support Linux : oui

   Status        : operationnel
   Ou le trouver : ici

   Identifiant version : VER140
   Version RTL         : RTLVersion = 14.0


Delphi 7 
   Date          : 2002
   Systeme       : windows 32 bits

   API Windows   : jusqu'a windows XP
   Support Linux : oui

   Status        : operationnel
   Ou le trouver : ---
 
   Identifiant version : VER150
   Version RTL         : RTLVersion = 15.0


Delphi 8
   Date          : 2003 (?)
   Systeme       : windows 32 bits

   API Windows   : jusqu'a windows XP
   Support .NET  : oui
   Support Linux : oui

   Status        : operationnel
   Ou le trouver :  ---
 
   Identifiant version : VER160
   Version RTL         : RTLVersion = 16.0


Delphi 2005
   Date          : 2004
   Systeme       : windows 32 bits
 
   API Windows   : jusqu'a windows XP
   Support .NET  : oui
   Support Linux : oui

   Status        : operationnel
   Ou le trouver : ici

   Identifiant version : VER170
   Version RTL         : RTLVersion = 17.0


Delphi 2006 
   Date          : 2006
   Systeme       : windows 32/64 bits (?)
 
   API Windows   : jusqu'a windows Vista (?)
   Support .NET  : oui
   Support Linux : oui

   Status        : operationnel
   Ou le trouver :  ---

   Identifiant version : VER180
   Version RTL         : RTLVersion = 18.0


Turbo Delphi 
   Date          : 2006
   Systeme       : windows 32/64 bits (?)
 
   API Windows   : jusqu'a windows Vista (?)
   support .NET  : oui (dans la version .NET)
   Support Linux : oui
     
   Status        : operationnel
   Ou le trouver : ici - ici

   Identifiant version : VER180
   Version RTL         : RTLVersion = 18.0

Afficher ou recuperer la version de Delphi dans votre programme :

fichier DelphiVer.pas (télécharger) :

(declarez ce fichier dans les "uses" de votre projet)

unit DelphiVer; { DelphiVer.pas v1.0 by F0XI - www.delphifr.com }

interface

type

TDelphiVersion = (dvUnknow, dvDelphi1, dvDelphi2, dvDelphi3, dvDelphi4,

dvDelphi5, dvDelphi6, dvDelphi7, dvDelphi8, dvDelphi2005,

dvDelphi2006);

const

DelphiVersion : TDelphiVersion =

{$IFDEF VER180} dvDelphi2006; {$ELSE}

{$IFDEF VER170} dvDelphi2005; {$ELSE}

{$IFDEF VER160} dvDelphi8; {$ELSE}

{$IFDEF VER150} dvDelphi7; {$ELSE}

{$IFDEF VER140} dvDelphi6; {$ELSE}

{$IFDEF VER130} dvDelphi5; {$ELSE}

{$IFDEF VER120} dvDelphi4; {$ELSE}

{$IFDEF VER100} dvDelphi3; {$ELSE}

{$IFDEF VER90} dvDelphi2; {$ELSE}

{$IFDEF VER80} dvDelphi1; {$ELSE}

dvUnknow; {$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}

{$ENDIF}{$ENDIF}{$ENDIF}{$ENDIF}

{$ENDIF}{$ENDIF}

function DelphiVersionToString : string;

implementation

function DelphiVersionToString : string;

const

DVTS : array[TDelphiVersion] of string = ( 'Unknow',

'Delphi 1',

'Delphi 2',

'Delphi 3',

'Delphi 4',

'Delphi 5',

'Delphi 6',

'Delphi 7',

'Delphi 8',

'Delphi 2005',

'Delphi 2006');

begin

result := DVTS[DelphiVersion];

end;