<?xml version='1.0' encoding="utf-8"?>
      <rss version='2.0'>
      <channel>
      <title>Форум на Исходниках.RU</title>
      <link>https://forum.sources.ru</link>
      <description>Форум на Исходниках.RU</description>
      <generator>Форум на Исходниках.RU</generator>
  	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=39094&amp;view=findpost&amp;p=253256</guid>
        <pubDate>Thu, 27 Nov 2003 12:28:43 +0000</pubDate>
        <title>Как узнать версию компиллятора?</title>
        <link>https://forum.sources.ru/index.php?showtopic=39094&amp;view=findpost&amp;p=253256</link>
        <description><![CDATA[Vit: Иногда надо выполнить разный код в зависимости от версии Дельфи, особенно актуально это при разработки компонентов и модулей, которые используются в разных приложениях. <br>
<br>
<em class='tag-i'>В Дельфи предопределены специальные константы компиляции для этого: </em><br>
<ul class="tag-list"><li>Ver80 - Дельфи 1 </li><li>Ver90 - Дельфи 2 </li><li>Ver93 - С Buider 1 </li><li>Ver100 - Дельфи 3 </li><li>Ver110 - С Buider 3 </li><li>Ver120 - Дельфи 4 ]</li><li>Ver125 - С Buider 4 </li><li>Ver130 - Дельфи 5 </li><li>Ver140 - Дельфи 6 </li><li>Ver150 - Дельфи 7</li></ul><br>
<em class='tag-i'>Пример использования:</em><br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">procedure TForm1.Button2Click(Sender: TObject); </div><div class="code_line">const Version= </div><div class="code_line">&nbsp;{$Ifdef Ver80}&#39;Дельфи 1&#39;;{$EndIf} &nbsp; &nbsp;</div><div class="code_line">&nbsp;{$Ifdef Ver90}&#39;Дельфи 2&#39;;{$EndIf} &nbsp; </div><div class="code_line">&nbsp;{$Ifdef Ver100}&#39;Дельфи 3&#39;;{$EndIf} &nbsp;</div><div class="code_line">&nbsp;{$Ifdef Ver120}&#39;Дельфи 4&#39;;{$EndIf} &nbsp; </div><div class="code_line">&nbsp;{$Ifdef Ver130}&#39;Дельфи 5 &#39;;{$EndIf} &nbsp;</div><div class="code_line">&nbsp;{$Ifdef Ver140}&#39;Дельфи 6&#39;;{$EndIf} &nbsp;</div><div class="code_line">&nbsp;{$Ifdef Ver150}&#39;Дельфи 7&#39;;{$EndIf} &nbsp; </div><div class="code_line">begin </div><div class="code_line">&nbsp;&nbsp;ShowMessage(&#39;Для компиляции этой программы был использован &#39;+Version); </div><div class="code_line">end;</div></ol></div></div></div></div><script>preloadCodeButtons('1');</script><br>
               <br>
Автор: <strong class='tag-b'> <a class='tag-url' href='http://forum.sources.ru/index.php?showuser=4453' target='_blank'>Vit</a> </strong>]]></description>
        <author>Vit</author>
        <category>Среда Дельфи, компилятор, отладчик, редактор</category>
      </item>
	
      </channel>
      </rss>
	