$Hints — Директива компилятора Delphi


Директивы компилятора — Версии Delphi

У меня есть блок, который я написал в Delphi 7 некоторое время назад, и просто получил удовольствие (боль) от преобразования в Delphi XE (Unicode).

Устройство работает отлично после некоторых проблем, теперь я пытаюсь сделать этот аппарат совместимым с различными версиями Delphi, если мне когда-либо понадобится переключить IDE обратно в Delphi 7, обновляя какой-либо другой код.

У меня только Delphi 7 и Delphi XE, но из того, что я собираю, код, написанный в Delphi 1, Delphi 2007 будет компилироваться, но код из Delphi 2009 и выше будет Unicode.

. Во всяком случае, в блоке я отделяющий не-Юникод и Юникод, как так:

Как изменить директиву компилятора поэтому правила применяются к Многоязычным версиям? Например, что-то вроде:

Это будет охватывать все версии Delphi, если я буду распространять источник или блок .dcu.

Создан 25 ноя. 11 2011-11-25 14:07:16 Anonymous

2 ответа

Интересно, является ли самый простой подход в этом случае переключать поведение на UNICODE условно. Это условие определено тогда и только тогда, когда вы используете Unicode-версию Delphi, то есть в Delphi 2009 и более поздних версиях. Большим преимуществом этого является то, что это будущее доказательство — вам не нужно обновлять свой код каждый раз, когда выпускается новый Delphi. Более того, условный переключатель будет гораздо читабельнее, поскольку он четко выражает намерение.

Документация Delphi имеет отличный topic, содержащий все предопределенные условные обозначения. Полный список условных обозначений версии также linked оттуда.

Создан 25 ноя. 11 2011-11-25 14:20:45 David Heffernan

+1, вы были быстрее. Если OP хочет только разделить код на Unicode-версию Delphi, то директива ‘UNICODE’ является точной. Существуют также CompilerVersion и RTLVersion для определения текущей версии Delphi. – TLama 25 ноя. 11 2011-11-25 14:31:10

. если кто-то использовал «UNICODE» в прошлом. Например, чтобы удовлетворить отсутствие поддержки Unicode в самой Delphi;) . все еще, +1 . ваше решение кажется более чистым, если можно гарантировать, что ‘UNICODE’ еще не используется. – 0xC0000022L 25 ноя. 11 2011-11-25 14:33:44

@STATUS_ACCESS_DENIED В этом случае необходимо изменить код, который определяет и использует пользовательский условный символ с именем UNICODE. – David Heffernan 25 ноя. 11 2011-11-25 14:36:29

@ Давид: Я не уверен, что согласен. В C/C++ для определенных объектов (определений и функций) было принято, чтобы они начинались с двух ведущих подчеркиваний, если они специфичны для компилятора. Borland (et al.) Должен был бы сделать такие правила давно. Они меняют правила и постоянно нарушают код. В частности, поддержка Unicode/была бесполезной в этом отношении. Я до сих пор не понимаю, как совершенные дельфийцы могут оставаться такими спокойными;) . Я некоторое время оставил все это позади меня, хотя по-прежнему пользуюсь Delphi. – 0xC0000022L 25 ноя. 11 2011-11-25 14:53:46

@STATUS Как бы то ни было, это то, что есть, и если Emba определит ‘UNICODE’, тогда вам не нужно, нравится вам это или нет. – David Heffernan 25 ноя. 11 2011-11-25 14:54:52

@ Давид спасибо за информацию, используя директиву UNICODE намного лучше :)user741875 25 ноя. 11 2011-11-25 15:09:07

Ваш лучший выбор — это посмотреть на один из многих проектов JEDI, например, http://sourceforge.net/projects/jedi-apilib/ и посмотреть, как они это делают. У них есть общие файлы, содержащие именно те детали, которые вас интересуют. JVCL — еще один хороший выбор .

Создан 25 ноя. 11 2011-11-25 14:11:10 0xC0000022L

Да jvcl inc совершенен. Существует только каждая директива компилятора для кодирования некоторых разделов, относящихся к конкретным версиям. – az01 25 ноя. 11 2011-11-25 14:18:50

Директивы компилятора для Debug/Release

14.11.2020, 20:14

Директивы компилятора
Ребят знает кто как отключить ошибки такого рода(см.ниже) Она выскакивает если оставить.

Различия между Debug и Release
Чем отличаются Debug и Release версии файла, кроме размера самого файла на выходе? Я так понял они.

В чем отличие Debug от Release
Народ, конкретно чем отличается дебаг от релиза. Я новичок совсем, поэтому не шарю. Но компилируя в.

Почему Release и Debug работают по разному
Уже не в первый раз происходит так, что откомпилированный в режиме Release проект работает не так.

Почему некоторые методы в Release не работают, тогда как в Debug все нормально?
Всем привет! Пришло время узнать, а собственно почему некоторые методы в Reliase не работают, так.

Как заставить компилятор Delphi отображать все подсказки и предупреждения

Есть ли способ заставить компилятор Delphi отображать все подсказки и предупреждения все время?

Вот поведение, которое я сейчас вижу в Delphi 6:

  • Проверьте свежую копию моего приложения из источника управления
  • Открыть проект в Delphi и компилировать
  • Отображаются все подсказки и предупреждения для проекта
  • Внесите изменения в одну единицу
  • Compile
  • Отображаются только подсказки и предупреждения для измененного устройства.

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

EDIT: Выполнение полной сборки (Project > Build) дает те же неудачные результаты.

НОВАЯ ИНФОРМАЦИЯ: Если я изменяю блок, а затем компилирую, я получаю предупреждения. Однако, если я изменяю единицу, а затем строю, я не получаю предупреждения. Я думаю, это указывает на то, что какие-то предупреждения отключены. Возможно, в сторонней библиотеке?

Кажется, что должен быть способ попросить Delphi повторно отобразить все эти подсказки и предупреждения, которые не требуют, чтобы я либо просматривал новую копию из исходного кода, либо изменял каждую единицу один за другим.

Я бы попросил проверить, отключены ли вы предупреждения в некоторых ваших устройствах.
В зависимости от последнего изменения в единицах порядок компиляции может измениться. В некоторых случаях предупреждения могут оставаться отключенными для единицы, которая скомпилирована после того, как она была недавно свернута из контроля версий, она была скомпилирована ранее, с предупреждениями.
Обратите особое внимание на любой файл Include , который вы можете использовать.

Подсказки и предупреждения генерируются компилятором. Он будет сообщать только о единицах, которые он составил. Команда «компиляция» будет только компилировать измененные файлы. Чтобы принудительно перекомпилировать все единицы, используемые вашим проектом, используйте команду Создать.

В более поздних версиях назначается клавиша быстрого доступа (Shift + F9) команде «Build».

Чтобы получить эту комбинацию клавиш в Delphi 6, установить эту утилиту, которую я использовал некоторое время с большим успехом на Delphi 5.

$Align — директива компилятора

Posted by key under Delphi

Определяет, были ли данные выровнены или упакованы

Описание:

С $Align On (по умолчанию), сложные типы данных, такие как записи, хранят свои элементы, выровненные по 2, 4 или 8-байтовой границе, соответственно типу данных. Например, поле типа Word будет выровнено по 4-байтовой границе.

С $Align On, значением по умолчанию, вы можете перекрыть эти настройки с помощью опции packed для сложных типов данных.

Выравнивание обеспечивает оптимальную скорость доступа.

$Align Off указывает Delphi игнорировать выравнивание, и таким образом пакует данные.

Пример кода:

// Declare a packed record
TPackedRecord = Packed Record
name1 : string[4];
floater : single;
name2 : char;
int : Integer;
end;

// Set alignment off

// Declare an unpacked record
// This will get treated as if packed was on
TUnPackedRecord = Record
name1 : string[4];
floater : single;
name2 : char;
int : Integer;
end;

var
alignedRec : TAlignedRecord;
packedRec : TPackedRecord;
unPackedRec : TUnPackedRecord;

begin
ShowMessage(‘Aligned record size = ‘+IntToStr(SizeOf(alignedRec)));
ShowMessage(‘Packed record size = ‘+IntToStr(SizeOf(packedRec)));
ShowMessage(‘UnPacked record size = ‘+IntToStr(SizeOf(unPackedRec)));
end;

$Hints — Директива компилятора Delphi

3437 просмотра

3 ответа

2628 Репутация автора

я работаю над приложением с использованием Delphi 7 , и я только что наткнулся на это

автор кода поместил так много директив компилятора перед именем основного модуля.

может кто-нибудь сказать мне

  1. Какая польза от наличия Директив перед именем единицы, это делает их глобальными?
  2. И можем ли мы создавать свои собственные директивы в некоторых конкретных ситуациях?
  3. где определены директивы компилятора?

Автор: PresleyDiasИсточник Размещён: 17.01.2012 11:10

Ответы (3)

7 плюса

527596 Репутация автора

Относительно того, влияет ли директива на весь проект, на весь модуль, одну функцию и область с функцией, которая варьируется от директивы к директиве. Вы должны прочитать документацию для каждой директивы, чтобы знать, какова ее область применения.

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

Директивы Switch являются глобальными или локальными:

  • Глобальные директивы влияют на всю компиляцию и должны появляться перед частью объявления программы или компилируемого модуля.
  • Локальные директивы влияют только на ту часть компиляции, которая простирается от директивы до следующего появления той же директивы. Они могут появиться где угодно.

Однако рассмотрим DENYPACKAGEUNIT директиву (выделено мной):

<$DENYPACKAGEUNIT ON>Директива запрещает Delphi блок , в котором он появляется из помещаются в пакет.

Если эта директива имеет охват всей единицы, то она просто должна присутствовать в единице для вступления в силу.

Так что может иметь значение, где находится директива. Суть в том, что для каждой директивы вам необходимо знать ее область действия, и для этого вы должны обратиться к документации по этой директиве.

Обратите внимание, что вам нужно устанавливать директивы в коде, только если вы хотите изменить настройки, сделанные в настройках проекта. Вполне разумно устанавливать параметры в настройках проекта, а не устанавливать их в коде.

Похоже, что произошло в коде, который вы представляете, это то, что автор набрал, CTRL+O O и среда IDE вставила различные параметры, определенные в параметрах проекта в тот момент времени.

4 плюса

24047 Репутация автора

  1. Какая польза от наличия Директив перед именем единицы, это делает их глобальными?

Если под глобальным вы подразумеваете весь проект, ответ НЕТ. Каждый модуль компилируется самостоятельно.

  1. И можем ли мы создавать свои собственные директивы в некоторых конкретных ситуациях?

Они называются директивами компилятора, потому что компилятор их интерпретирует. Вы не можете создавать свои собственные директивы, если вы не в Embarcadero и не изменили компилятор.

Они определены в источниках компилятора. Они задокументированы в документации компилятора, и вы уже нашли отличную ссылку (ваша вторая ссылка)

плюса

1 Репутация автора

Спасибо, ребята, за совет CTRL OO, потому что я не знаю, что случилось с моим кодом, когда появились эти стандартные и определенные директивы.

Директивы по версиям компилятора Delphi: <$ IFDEF VER180>— 2020

Подготовка к кодированию без барьеров. Узнайте, как преодолеть проблему с версией компилятора: компиляция кода Delphi для различных версий Delphi.

Если вы планируете писать код Delphi, который должен работать с несколькими версиями компилятора Delphi, вам необходимо знать, в каких версиях компилируется ваш код.

Предположим, вы пишете свой собственный (коммерческий) пользовательский компонент. Пользователи вашего компонента могут иметь разные версии Delphi, чем у вас.

Если они попытаются перекомпилировать код компонента (ваш код) — у них могут быть проблемы! Что если вы использовали параметры по умолчанию в ваших функциях, а у пользователя Delphi 3?

Директива компилятора: $ IfDef

Директивы компилятора — это специальные синтаксические комментарии, которые мы можем использовать для управления функциями компилятора Delphi. Компилятор Delphi имеет три типа директив: переключение директив, директивы параметров а также условные директивы, Условная компиляция позволяет нам выборочно компилировать части исходного кода в зависимости от того, какие условия установлены.

Директива компилятора $ IfDef запускает секцию условной компиляции.

Синтаксис выглядит так:

DefName представляет так называемый условный символ. Delphi определяет несколько стандартных условных символов. В приведенном выше «коде», если определено DefName, код выше $ Else компилируется.

Delphi Version Symbols

Распространенным применением директивы $ IfDef является тестирование версии компилятора Delphi.

В следующем списке указаны символы, которые необходимо проверить при условной компиляции для конкретной версии компилятора Delphi:

  • УСЛОВНОЕ ОБОЗНАЧЕНИЕ — Компиляционная версия
  • VER80 — Delphi 1
  • VER90 — Delphi 2
  • VER100 — Delphi 3
  • VER120 — Delphi 4
  • VER130 — Delphi 5
  • VER140 — Delphi 6
  • VER150 — Delphi 7
  • VER160 — Delphi 8
  • VER170 — Delphi 2005
  • VER180 — Delphi 2006
  • VER180 — Delphi 2007
  • VER185 — Delphi 2007
  • VER200 — Delphi 2009
  • VER210 — Delphi 2010
  • VER220 — Delphi XE
  • VER230 — Delphi XE2
  • WIN32 — Указывает, что операционной средой является Win32 API.
  • LINUX — Указывает, что операционной средой является Linux
  • MSWindows — Указывает, что операционной средой является MS Windows / li]
  • ПРИСТАВКА — Указывает, что приложение компилируется как консольное приложение.

Зная вышеупомянутые символы, можно написать код, который работает с несколькими версиями Delphi, используя директивы компилятора для компиляции соответствующего исходного кода для каждой версии.

Примечание: символ VER185, например, используется для обозначения компилятора Delphi 2007 или более ранней версии.

Использование символов «VER»

Обычно (и желательно) для каждой новой версии Delphi добавлять несколько новых подпрограмм RTL к языку.

Например, функция IncludeTrailingBackslash, представленная в Delphi 5, добавляет «» в конец строки, если ее там еще нет. В проекте Delphi MP3 я использовал эту функцию, и несколько читателей пожаловались, что не могут скомпилировать проект — у них есть какая-то версия Delphi до Delphi 5.

Одним из способов решения этой проблемы является создание собственной версии этой подпрограммы — функции AddLastBackSlash.

Если проект должен быть скомпилирован на Delphi 5, вызывается IncludeTrailingBackslash. Если используются некоторые из предыдущих версий Delphi, мы моделируем функцию IncludeTrailingBackslash.

Это может выглядеть примерно так:

функция AddLastBackSlash (ул: строка) : строка; начать Результат: = IncludeTrailingBackslash (str); если Copy (str, Length (str), 1) = «» затем Результат: = ул еще Результат: = str + «»; конец;

При вызове функции AddLastBackSlash Delphi выясняет, какая часть функции должна использоваться, а другая часть просто пропускается.

Delphi 2008?

Delphi 2007 использует VER180 для обеспечения неразрывной совместимости с Delphi 2006, а затем добавляет VER185 для разработки, которая по каким-либо причинам должна быть нацелена на Delphi 2007.

Примечание. Каждый раз, когда интерфейс модуля изменяет код, использующий этот модуль, его необходимо перекомпилировать.Delphi 2007 — выпуск без прерываний, означающий, что файлы DCU из Delphi 2006 будут работать как есть.

$Hints — Директива компилятора Delphi

Как сделать свои собственные сообщения при компилляции

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

Какие есть директивы компилятора?

<$I+>и <$I->— директивы контроля ввода/вывода
<$M>и <$S>— директивы, определяющие размер стека

<$M+>и <$M->— директивы информации времени выполнения о типах
<$Q+>и <$Q->— директивы проверки переполнения целочисленных операций

<$R>— директива связывания ресурсов

<$R+>и <$R->— директивы проверки диапазона

<$APPTYPE CONSOLE>— директива создания консольного приложения

1) Директивы компилятора, разрешающие или запрещающие проверку утверждений.

По умолчанию <$C+>или <$ASSERTIONS ON>
Область действия локальная

Директивы компилятора $C разрешают или запрещают проверку утверждений. Они влияют на работу процедуры Assert,используемой при отладке программ. По умолчанию действует
директива <$C+>и процедура Assert генерирует исключение EAssertionFailed , если проверяемое утверждение ложно.
Так как эти проверки используются только в процессе отладки программы, то перед ее окончательной компиляцией следует указать директиву <$C->. При этом работа процедур Assert будет блокировано и генерация исключений EassertionFailed производиться не будет.
Директивы действуют на весь файл исходного кода независимо от того, в каком месте файла они расположены.

2) Директивы компилятора, включающие и выключающие контроль файлового ввода-вывода.

По умолчанию <$I+>или <$IOCHECKS ON>
Область действия локальная

Директивы компилятора $I включают или выключают автоматический контроль результата вызова процедур ввода-вывода Object Pascal . Если действует директива <$I+>, то при возвращении процедурой ввода-вывода ненулевого значения генерируется исключение EInOutError и в его свойство errorcode заносится код ошибки. Таким образом, при действующей директиве <$I+>операции ввода-вывода располагаются в блоке try . except , имеющем обработчик исключения EInOutError . Если такого блока нет, то обработка производится методом TApplication.HandleException .
Если действует директива <$I->, то исключение не генерируется. В этом случае проверить, была ли ошибка, или ее не было, можно, обратившись к функции IOResult . Эта функция очищает ошибку и возвращает ее код, который затем можно анализировать. Типичное применение директивы <$I->и функции IOResult демонстрирует следующий пример:

AssignFile ( F,s );
Rewrite (F);

<$I+>
i:=IOResult ;
if i <> 0 then
case i of
2 : .
3 : .
end ;

В этом примере на время открытия файла отключается проверка ошибок ввода вывода, затем она опять включается, переменной i присваивается значение, возвращаемое функцией IOResult и, если это значение не равно нулю (есть ошибка), то предпринимаются какие-то действия в зависимости от кода ошибки. Подобный стиль программирования был типичен до введения в Object Pascal механизма обработки исключений. Однако сейчас, по-видимому, подобный стиль устарел и применение директив $I потеряло былое значение.

3) Директивы компилятора, определяющие размер стека

По умолчанию <$M 16384,1048576>
Область действия глобальная

Локальные переменные в процедурах и функциях размещаются в стеке приложения. При каждом вызове процедуры или функции ее локальные переменные помещаются в стек. При выходе из процедуры или функции эти локальные процедуры удаляются из стека.
Директивы компилятора $M задают параметры стека приложения: его минимальный и максимальный размеры. Приложение всегда гарантировано имеет размер стека, равный его минимальной величине. Если при запуске приложения Windows обнаруживает, что не может выделить этот минимальный объем памяти, то выдается сообщение об этой ошибке.
Если во время работы выясняется, что минимального размера стека не хватает, то размер увеличивается на 4 K, но не более, чем до установленного директивой максимального размера. Если увеличение размера стека невозможно из-за нехватки памяти или из-за достижения его максимальной величины, генерируется исключение EStackOverflow . Минимальный размер стека по умолчанию равен 16384 (16K). Этот размер может изменяться параметром minstacksize директивы <$M>или параметром number директивы <$MINSTACKSIZE>.
Максимальный размер стека по умолчанию равен 1,048,576 (1M). Этот размер может изменяться параметром maxstacksize директивы <$M>или параметром number директивы <$MAXSTACKSIZE number >. Значение минимального размера стека может задаваться целым числом в диапазоне между1024 и 2147483647. Значение максимального размера стека должно быть не менее минимального размера и не более 2147483647. Директивы задания размера стека могут включаться только в программу и не должны использоваться в библиотеках и модулях.

В Delphi 1 имеется процедура компилятора <$S>, осуществляющая переключение контроля переполнения стека. Теперь этот процесс полностью автоматизирован и директива <$S>оставлена только для обратной совместимости.

4) Директивы компилятора, включающие и выключающие генерацию информации времени выполнения о типах ( runtime type information — RTTI).

По умолчанию <$M->или <$ TYPEINFO OFF>
Область действия локальная

Директивы компилятора $M включают или выключают генерацию информации времени выполнения о типах ( runtime type information — RTTI). Если класс объявляется в состоянии <$M+>или является производным от класса объявленного в этом состоянии, то компилятор генерирует RTTI о его полях, методах и свойствах, объявленных в разделе published . В противном случае раздел published в классе не допускается. Класс TPersistent , являющийся предшественником большинства классов Delphi и все классов компонентов, объявлен в модуле Classes в состоянии <$M+>. Так что для всех классов, производных от него, заботиться о директиве <$M+>не приходится.

5) Директивы компилятора, включающие и выключающие проверку переполнения при целочисленных операциях

По умолчанию <$Q->или <$OVERFLOWCHECKS OFF>
Область действия локальная

Директивы компилятора $Q включают или выключают проверку переполнения при целочисленных операциях. Под переполнением понимается получение результата, который не может сохраняться в регистре компьютера. При включенной директиве <$Q+>проверяется переполнение при целочисленных операциях +, -, *, Abs , Sqr , Succ , Pred , Inc и Dec . После каждой из этих операций размещается код, осуществляющий соответствующую проверку. Если обнаружено переполнение, то генерируется исключение EIntOverflow . Если это исключение не может быть обработано, выполнение программы завершается.
Директивы $Q проверяют только результат арифметических операций. Обычно они используются совместно с директивами <$R>, проверяющими диапазон значений при присваивании.
Директива <$Q+>замедляет выполнение программы и увеличивает ее размер. Поэтому обычно она используется только во время отладки программы. Однако, надо отдавать себе отчет, что отключение этой директивы приведет к появлению ошибочных результатов расчета в случаях, если переполнение действительно произойдет во время выполнении программы. Причем сообщений о подобных ошибках не будет.

6) Директивы компилятора, включающие и выключающие проверку диапазона целочисленных значений и индексов

По умолчанию <$R>или <$RANGECHECKS OFF>
Область действия локальная

Директивы компилятора $R включают или выключают проверку диапазона целочисленных значений и индексов. Если включена директива <$R+>, то все индексы массивов и строк и все присваивания скалярным переменным и переменным с ограниченным диапазоном значений проверяются на соответствие значения допустимому диапазону. Если требования диапазона нарушены или присваиваемое значение слишком велико, генерируется исключение ERangeError . Если оно не может быть перехвачено, выполнение программы завершается.
Проверка диапазона длинных строк типа Long strings не производится.
Директива <$R+>замедляет работу приложения и увеличивает его размер. Поэтому она обычно используется только во время отладки.

6) Директива компилятора, связывающая с выполняемым модулем файлы ресурсов

Область действия локальная

Директива компилятора <$R>указывает файлы ресурсов (.DFM, .RES), которые должны быть включены в выполняемый модуль или в библиотеку. Указанный файл должен быть файлом ресурсов Windows . По умолчанию расширение файлов ресурсов — .RES.
В процессе компоновки компилированной программы или библиотеки файлы, указанные в директивах <$R>, копируются в выполняемый модуль. Компоновщик Delphi ищет эти файлы сначала в том каталоге, в котором расположен модуль, содержащий директиву <$R>, а затем в каталогах, указанных при выполнении команды главного меню Project | Options на странице Directories / Conditionals диалогового окна в опции Search path или в опции /R командной строки DCC32.
При генерации кода модуля, содержащего форму, Delphi автоматически включает в файл . pas директиву <$R *.DFM>, обеспечивающую компоновку файлов ресурсов форм. Эту директиву нельзя удалять из текста модуля, так как в противном случае загрузочный модуль не будет создан и генерируется исключение EResNotFound .


Все установленные в настройках опции компиляции можно вставить непосредственно в текст программы нажав клавиши Ctrl-O , O

Как сделать свои собственные сообщения при компилляции ?

destructor TumbSelectionTempTable.Destroy ;
begin
// Clear the temp tables.
<$MESSAGE Warn ' - remember to free all allocated objects'>
ClearAllOuterWorldFold ;
if FSubjectsTempTableCreated then
DropTempTable ( FTableName );

FOuterWorldsFolded.Free ;
FQuery.Free ;
inherited ;
end ;

Работает только в Дельфи 6/7

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

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

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

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=

Условная компиляция в Delphi

Условная компиляция в Delphi, по сути, очень полезная и удобная возможность, которая позволяет Delphi компилировать или не компилировать код в зависимости от определенных символов условной компиляции. Говоря более простым языком (возможно и не совсем корректно), условная компиляция позволяет убрать или, наоборот, добавить часть кода исполняемого файла. Так или иначе, любой Delphi разработчик встречается с символами условной компиляции как минимум один раз за время работы над проектом.

Далее я рассмотрю различные примеры использования условной компиляции, которые могут Вам пригодиться в дальнейшей работе.

Для начала, рассмотрим очень простой код, который вы можете повторить в Delphi за несколько секунд:

Теперь нажмите F9 и проверьте, что написано в отладчике в «Events»:

Разберемся с тем, что мы только что написали.

$IFDEF — это директива компилятора;

DEBUG — условное определение или символ условной компиляции. Символ обязательно должен начинаться с буквы за которой может следовать любое количество букв, цифр и знаков подчеркивания, однако использоваться будут лишь первые 255 символов.

Процедура отправляет строку в отладчик для отображения.

Завершает условную компиляцию, инициированную последней директивой <$IFxxx>(почему не <$IFDEF>— смотрим далее).

Таким образом, используя директивы и мы указали компилятору дословно следующее: если где-либо по ходу компиляции был встречено условное определение DEBUG, то надо выполнить OutputDebugString.

Где определено условное определение DEBUG? Конкретно в этом случае, символ DEBUG можно найти, если зайти в настройки проекта: Project -> Options ->Delphi Compiler :

Здесь же можно определить и свои собственные символы. Давайте, например, добавим свой символ условной компиляции TEST. Для этого открываем диалоговое окно редактирования символов условной компиляции (жмем кнопку «…» в строке «Conditional defines») и заносим наш символ в список:

Теперь изменим наш код, приведенный в начале статьи, чтобы он работал с нашим символом условной компиляции:

Теперь можете снова запустить приложения в режиме отладки и посмотреть, что в Events появится строка «TEST IS ON».

Сейчас мы с вами рассмотрели самый простой способ использования условной компиляции в Delphi — использование директив и , а также определение собственного символа условной компиляции через свойства проекта. Вместе с этим, определить (включить) свой символ условной компиляции можно и в коде программы. Для этого используется директива компилятора . Воспользуемся этой директивой:

Соответственно, если есть директива определения нового символа, то должна быть и директива, которая отключает символы условной компиляции — она называется . Можете написать, например, вот такой код:

и убедиться, что символ DEBUG выключен, а в окне Events не появится строка «debug is on».

Двигаемся далее. Что делать, если нам необходимо вывести строку не когда символ включен, а именно тогда, когда он выключен? Здесь, опять же, есть варианты. Короткий вариант — воспользоваться директивой противоположной — она называется и код между и выполняется, если символ выключен:

Второй вариант — использование директивы , если в зависимости от состояния символа условной компиляции вам надо выполнять различные участки кода:

Соответственно, нет необходимости далее повторять этот же участок кода с использованием — работать будет, но прямо противоположно.

Также следует обратить внимание на то, что все условные символы оцениваются в Delphi, когда вы выполняете Build проекта. Справка Delphi рекомендует для надежности пользоваться командой Project -> Build All Projects, чтобы быть уверенным, что все символы условной компиляции определены верно.

В Delphi также определен набор символов условной компиляции, которые вы можете использовать при работе над своим проектом.

Например, символ условной компиляции VER330 определен для Delphi 10.3 Rio и с его помощью можно определить какой код должен или не должен выполняться, в случае, если версия компилятора Delphi — 33. Например, воспользуемся фичей Delphi 10.3 Rio под названием Inline Variable Declaration:

Сразу может возникнуть вопрос: как сделать так, чтобы приведенный выше код сработал не только в Delphi 10.3 Rio, но и в последующих версиях?
Это можно сделать воспользовавшись, например, такой конструкцией:

Здесь мы уже воспользовались директивой с помощью которой проверили значение константы CompilerVersion, которая находится в модуле System.

Здесь же стоит обратить внимание и на окончание блока — мы использовали директиву , как того требовала Delphi до версии Delphi XE4:

  • для директивы $IFDEF должна быть определена директива $ENDIF
  • для директивы $IF должна быть определена директива $IFEND

В XE4 нам разрешили использовать для закрытия блоков <$IF>, и . Однако, если у вас возникают проблемы при использовании связки и , то вы можете использовать специальную директиву , чтобы потребовать использовать для именно <$IFEND>:

Теперь, если в коде выше использовать директиву $ENDIF, то получим сообщение об ошибке:

Директиву , кстати, можно использовать и с другими константами проекта, например, так:

Так как наша константа Version содержит значение 2, то выполнится участок кода расположенный после . Можете сменить значение константы Version на 1, чтобы убедиться, что выполнится участок кода, где определена переменная s.

Как я сказал выше, в Delphi есть целый набор предопределенных символов условной компиляции. Ознакомиться со всеми этими символами вы можете на этой странице справки по Delphi.

  1. Использование условной компиляции позволяет нам выполнять тот или иной код, в зависимости от того, какие константы и символы условной компиляции определены или не определены в проекте.
  2. Используя предопредленные символы условной компиляции можно указывать Delphi какой код необходимо выполнить, например, если программа собирается под Android, или, если поддерживается архитектура x64 и т.д.
  3. Директива $IF может использоваться с различными константами, в том числе и определенными самим разработчиком.

При подготовке статьи использовалась следующая информация официальной справки по Delphi:

Директивы компилятора — Delphi версии

У меня есть блок, который я написал в Delphi 7 некоторое время назад, и только было весело (боль) преобразования в Delphi XE (Unicode).

Группа работает отлично после того, как некоторые проблемы, я сейчас пытаюсь сделать это устройство совместимо с различными версиями Delphi я должен когда-нибудь понадобится, чтобы переключиться обратно в IDE Delphi 7 в то время как обновление какой-либо другой код.

У меня только Delphi 7 и Delphi XE, но от того, что я собираю код, написанный на Delphi 1 в Delphi 2007 будет компилировать, но код с Delphi 2009 и выше будет Unicode.

. Во всяком случае, в блоке я отделяя не-Юникод и Юникод, как так:

Как изменить директиву компилятора поэтому правила применяются к Многоязычным версиям? Например, что-то вроде:

Это позволило бы охватить все версии Delphi я должен распространять исходный или .dcu блок.

Интересно , если самый простой подход в данном случае является переключение поведения на UNICODE условный. Это условное определяется тогда и только тогда , когда вы используете версию Unicode в Delphi, то есть в Delphi 2009 и более поздних версий. Большим преимуществом является то , что это будущее доказательство вам не нужно обновить код каждый раз , когда новый Delphi отпускается. Более того, условный переключатель будет гораздо более удобным для чтения , так как он будет четко выражать намерение.

Документация Delphi имеет отличную тему со списком всех предварительно определенными условными. Полный список версии условных также связан оттуда.

Директивы компилятора — Версии Delphi

У меня есть блок, который я написал в Delphi 7 некоторое время назад, и просто получил удовольствие (боль) от преобразования в Delphi XE (Unicode).

Устройство работает отлично после некоторых проблем, теперь я пытаюсь сделать этот аппарат совместимым с различными версиями Delphi, если мне когда-либо понадобится переключить IDE обратно в Delphi 7, обновляя какой-либо другой код.

У меня только Delphi 7 и Delphi XE, но из того, что я собираю, код, написанный в Delphi 1, Delphi 2007 будет компилироваться, но код из Delphi 2009 и выше будет Unicode.

. Во всяком случае, в блоке я отделяющий не-Юникод и Юникод, как так:

Как изменить директиву компилятора поэтому правила применяются к Многоязычным версиям? Например, что-то вроде:

Это будет охватывать все версии Delphi, если я буду распространять источник или блок .dcu.

Создан 25 ноя. 11 2011-11-25 14:07:16 Anonymous

2 ответа

Интересно, является ли самый простой подход в этом случае переключать поведение на UNICODE условно. Это условие определено тогда и только тогда, когда вы используете Unicode-версию Delphi, то есть в Delphi 2009 и более поздних версиях. Большим преимуществом этого является то, что это будущее доказательство — вам не нужно обновлять свой код каждый раз, когда выпускается новый Delphi. Более того, условный переключатель будет гораздо читабельнее, поскольку он четко выражает намерение.

Документация Delphi имеет отличный topic, содержащий все предопределенные условные обозначения. Полный список условных обозначений версии также linked оттуда.

Создан 25 ноя. 11 2011-11-25 14:20:45 David Heffernan

+1, вы были быстрее. Если OP хочет только разделить код на Unicode-версию Delphi, то директива ‘UNICODE’ является точной. Существуют также CompilerVersion и RTLVersion для определения текущей версии Delphi. – TLama 25 ноя. 11 2011-11-25 14:31:10

. если кто-то использовал «UNICODE» в прошлом. Например, чтобы удовлетворить отсутствие поддержки Unicode в самой Delphi;) . все еще, +1 . ваше решение кажется более чистым, если можно гарантировать, что ‘UNICODE’ еще не используется. – 0xC0000022L 25 ноя. 11 2011-11-25 14:33:44

@STATUS_ACCESS_DENIED В этом случае необходимо изменить код, который определяет и использует пользовательский условный символ с именем UNICODE. – David Heffernan 25 ноя. 11 2011-11-25 14:36:29

@ Давид: Я не уверен, что согласен. В C/C++ для определенных объектов (определений и функций) было принято, чтобы они начинались с двух ведущих подчеркиваний, если они специфичны для компилятора. Borland (et al.) Должен был бы сделать такие правила давно. Они меняют правила и постоянно нарушают код. В частности, поддержка Unicode/была бесполезной в этом отношении. Я до сих пор не понимаю, как совершенные дельфийцы могут оставаться такими спокойными;) . Я некоторое время оставил все это позади меня, хотя по-прежнему пользуюсь Delphi. – 0xC0000022L 25 ноя. 11 2011-11-25 14:53:46

@STATUS Как бы то ни было, это то, что есть, и если Emba определит ‘UNICODE’, тогда вам не нужно, нравится вам это или нет. – David Heffernan 25 ноя. 11 2011-11-25 14:54:52

@ Давид спасибо за информацию, используя директиву UNICODE намного лучше :)user741875 25 ноя. 11 2011-11-25 15:09:07

Ваш лучший выбор — это посмотреть на один из многих проектов JEDI, например, http://sourceforge.net/projects/jedi-apilib/ и посмотреть, как они это делают. У них есть общие файлы, содержащие именно те детали, которые вас интересуют. JVCL — еще один хороший выбор .

Создан 25 ноя. 11 2011-11-25 14:11:10 0xC0000022L

Да jvcl inc совершенен. Существует только каждая директива компилятора для кодирования некоторых разделов, относящихся к конкретным версиям. – az01 25 ноя. 11 2011-11-25 14:18:50

Илон Маск рекомендует:  Что такое код swfbutton &#62;setup
Понравилась статья? Поделиться с друзьями:
Кодинг, CSS и SQL