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

 

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

 

Ver80 - Дельфи 1

Ver90 - Дельфи 2

Ver93 - С Buider 1

Ver100 - Дельфи 3

Ver110 - С Buider 3

Ver120 - Дельфи 4

Ver125 - С Buider 4

Ver130 - Дельфи 5

Ver140 - Дельфи 6

Ver150 - Дельфи 7

 

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

Code:

procedure TForm1.Button2Click(Sender: TObject);

 

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

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 (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

 


Взято с Vingrad.ruhttp://forum.vingrad.ru

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!