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

[Turbine]

Здравстствуйте!
Подскажите, плиз
Если в локальной функции исользуется директива {Q-}
нужно ли отменять их {Q+} вообще или в конце функции ?

Пример

Function Sum (const a,b:word):word;
begin
{Q+}
sum:=a+b;
{Q-}
end;

Или по завершении функции, компилятор использует ключи указанные в глобальных настройках проекта?

[eoln]

Да, надо отключать вручную. И директивы с долларом пишутся {$Q+}
Локальные директивы действуют с того места где встретились и до самого конца компиляции (или до места где их отключат вручную). Причём, они начинают действовать не с места когда код начал выполнятся в рантайме, а с места где их нашёл компилятор. Так что даже если программа не дошла до того места где эта директива была прописана в исходнике, то она уже может быть активна (такое наблюдается, например, в оконных приложениях). Чтобы такой чертовщины не было, нужно обязательно вернуть директиву в прежнее состояние сразу после того, как дело сделано, т.е в данном случае внутри функции
http://docwiki.embarcadero.com/RADSt...ler_directives

Если эффекта не будет видно, то туда ещё нужно глянуть http://docwiki.embarcadero.com/RADSt...cking_(Delphi)

[Turbine]

Спасибо!
Т.е. если в Project-Options-Compiling установлено {$Q+},
а в какой-то процедуре/функции употребляется {$Q+}, а потом {$Q-},
то после КОМПИЛЯЦИИ этой функции, все оставшиеся фцнкции и процедуры будут компилироваться с {$Q-}?

и как проверить, состояние, например той же самой директивы компиляции {$Q+} она или {$Q-}? С помощью $IFOPT?

[eoln]

после КОМПИЛЯЦИИ этой функции, все оставшиеся фцнкции и процедуры будут компилироваться с {$Q-}?

да. поэтому перед выходом из функции нужно вернуть директивы по умолчанию(те, что в Project-Options-Compiling), иначе могут появится артефакты

С помощью $IFOPT?

да.
http://docs.embarcadero.com/products...ctive_xml.html
http://www.delphibasics.ru/$IfOpt.php

[Turbine]

Примерно так?

{$IFOPT I+} {$I-} {$DEFINE IPLUS}{$ENDIF}
{$IFOPT Q+} {$Q-} {$DEFINE QPLUS}{$ENDIF}
{$IFOPT R+} {$R-} {$DEFINE RPLUS}{$ENDIF}

{$IFDEF IPLUS} {$I+} {$UNDEF IPLUS} {$ENDIF IPLUS}
{$IFDEF RPLUS} {$R+} {$UNDEF RPLUS} {$ENDIF RPLUS}
{$IFDEF QPLUS} {$Q+} {$UNDEF QPLUS} {$ENDIF QPLUS}