quarta-feira, 11 de março de 2009

Versão do Delphi

Esta dica é especialmente útil para componentes e bibliotecas de funções.

01 - VER80 - Delphi 1
02 - VER90 - Delphi 2
03 - VER100 - Delphi 3
04 - VER120 - Delphi 4
05 - VER130 - Delphi 5
06 - VER140 - Delphi 6
07 - VER150 - Delphi 7
08 - VER160 - Delphi 8
09 - VER170 - Delphi 2005
10 - VER180 - Delphi 2006 / Delphi 2007
11 - VER185 - Delphi 2007 for Win32
12 - VER190 - Delphi 2007 for .NET
13 - VER200 - Delphi 2009
14 - VER210 - Delphi 2010
15 - VER220 - Delphi XE
16 - VER230 - Delphi XE2

Veja como ficaria um código para determinar a versão do seu Delphi:

function GetDelphiVersion: string;
begin
{$IFDEF VER80} Result := 'Delphi 1';               {$ENDIF}
{$IFDEF VER90} Result := 'Delphi 2';               {$ENDIF}
{$IFDEF VER100}Result := 'Delphi 3';               {$ENDIF}
{$IFDEF VER120}Result := 'Delphi 4';               {$ENDIF}
{$IFDEF VER130}Result := 'Delphi 5';               {$ENDIF}
{$IFDEF VER140}Result := 'Delphi 6';               {$ENDIF}
{$IFDEF VER150}Result := 'Delphi 7';               {$ENDIF}
{$IFDEF VER160}Result := 'Delphi 8';               {$ENDIF}
{$IFDEF VER170}Result := 'Delphi 2005';            {$ENDIF}
{$IFDEF VER180}Result := 'Delphi 2006/Delphi 2007';{$ENDIF}
{$IFDEF VER185}Result := 'Delphi 2007 for Win32';  {$ENDIF}
{$IFDEF VER190}Result := 'Delphi 2007 for .NET';   {$ENDIF}
{$IFDEF VER200}Result := 'Delphi 2009';            {$ENDIF}
{$IFDEF VER210}Result := 'Delphi 2010';            {$ENDIF}
{$IFDEF VER220}Result := 'Delphi XE';              {$ENDIF}
{$IFDEF VER230}Result := 'Delphi XE2';             {$ENDIF}
end;


Mais detalhes em:

http://delphi.about.com/od/objectpascalide/a/compiler_ver.htm

Nenhum comentário:

Minha lista de blogs