$UnDef Выключает символ директивы компилятора - используемый IfDef
Пример кода : Установка и использование символа определяемого пользователем
var
text : string;
begin // Установка нашего кода в
испытательный режим
{$Define TESTMODE}
text := 'Мы в испытательном режиме'; // Отображение значения текста, если
мы находимся в испытательном режиме
{$IfDef TESTMODE}
ShowMessage('text = '+text);
{$EndIf} // Выключение испытательного режима
{$UnDef TESTMODE} // Отображение значения текста, если
мы находимся в испытательном режиме
{$IfDef TESTMODE}
ShowMessage('text = '+text);
{$Else}
ShowMessage('Вне испытательного режима');
{$EndIf}
end;
Мы в испытательном режиме
Вне испытательного режима
