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

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

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

Code:

procedure TForm1.Button2Click(Sender: TObject);

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

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

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;