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
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 9 / Delphi 2005 / BDS3.0
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
Turbo Delphi 2006 Explorer / Delphi 2006 / BDS 4.0
Date : 2006
Systeme : windows 32 bits
API Windows : jusqu'a windows Vista
support .NET : oui (dans la version .NET)
Support Linux : oui
Status : operationnel
Ou le trouver : ici
Identifiant version : VER180
Version RTL : RTLVersion = 18.0
Delphi 2007 for Win32 / BDS5.0
Date : 2007
Systeme : windows 32 bits
API Windows : jusqu'a windows Vista
support .NET : non
Support Linux : oui
Status : operationnel
Ou le trouver : ici
Identifiant version : VER185
Version RTL : RTLVersion = 18.5
Delphi 2007 for .NET / BDS5.0
Date : 2007
Systeme : windows 32 bits et .NET
API Windows : jusqu'a windows Vista
support .NET : oui
Support Linux : oui
Status : operationnel
Ou le trouver : ici
Identifiant version : VER19 0
Version RTL : RTLVersion = 19 .0
Delphi 2009 / BDS6.0
Date : 2008
Systeme : windows 32 bits et .NET
API Windows : jusqu'a windows Vista
support .NET : oui
Support Linux : oui
Status : operationnel
Ou le trouver : ici
Identifiant version : VER20 0
Version RTL : RTLVersion = 20 .0
unit DelphiVer; { DelphiVer.pas v1.1 by Deefaze [f0xi * - www.delphifr.com }
interface
type
TDelphiVersion = (dvUnknow, dvDelphi1, dvDelphi2, dvDelphi3, dvDelphi4,
dvDelphi5, dvDelphi6, dvDelphi7, dvDelphi8, dvDelphi2005,
dvDelphi2006 , dvDelphi2007, dvDelphi2009 );
const
DelphiVersion : TDelphiVersion =
{$IFDEF VER200 } dvDelphi2009 ; {$ELSE}
{$IFDEF VER190 } dvDelphi2007 ; {$ELSE}
{$IFDEF VER185 } dvDelphi2007 ; {$ELSE}
{$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' , 'Delphi 2007', 'Delphi 2009' );
begin
result := DVTS[DelphiVersion * ;
end ;
end .