Delphi - база знаний

   Таблицы Рабкина по материалам http://www.spetsmedpribor.net. |     

Как узнать версию компилятора?


Как узнать версию компилятора?



Иногда надо выполнить разный код в зависимости от версии Дельфи, особенно актуально это при разработки компонентов и модулей, которые используются в разных приложениях.

В Дельфи предопределены специальные константы компиляции для этого:

Ver80 - Дельфи 1
Ver90 - Дельфи 2
Ver93 - С Buider 1
Ver100 - Дельфи 3


Ver110 - С Buider 3
Ver120 - Дельфи 4
Ver125 - С Buider 4
Ver130 - Дельфи 5
Ver140 - Дельфи 6
Ver150 - Дельфи 7

Пример использования:

procedure TForm1.Button2Click(Sender: TObject);
const Version=
{$Ifdef Ver80}'Дельфи 1';{$EndIf}    
{$Ifdef Ver90}'Дельфи 2';{$EndIf}   
{$Ifdef Ver100}'Дельфи 3';{$EndIf}  
{$Ifdef Ver120}'Дельфи 4';{$EndIf}   
{$Ifdef Ver130}'Дельфи 5 ';{$EndIf}  
{$Ifdef Ver140}'Дельфи 6';{$EndIf}  
{$Ifdef Ver150}'Дельфи 7';{$EndIf}   
begin
  ShowMessage('Для компиляции этой программы был использован '+Version);
end;

Автор Vit
Взято с Vingrad.ru




Содержание раздела