Директива препроцессора #INCLUDE

Указывает, что препроцессор Visual FoxPro должен рассматривать содержимое заданного файла заголовка как включенное в программу Visual FoxPro.

Синтаксис

#INCLUDE cFileName

Параметры
cFileName
Задает имя файла заголовка, который включается в программу в процессе компиляции.
Вместе с именем файла заголовка можно задать путь к нему. Если путь задан, Visual FoxPro ведет поиск файла только в указанном месте.
Если путь для файла заголовка не задан, Visual FoxPro ищет этот файл в используемом по умолчанию каталоге Visual FoxPro, а затем на пути Visual FoxPro. Путь Visual FoxPro задается командой SET PATH.

Комментарии
Можно создавать файлы заголовков, включающие директивы препроцессора, а затем с помощью директивы #INCLUDE сливать содержимое файла заголовка с программой во время компиляции. Содержимое файла заголовка вставляется в программу в процессе компиляции в той точке, где стоит #INCLUDE.
В файле заголовка распознаются только следующие директивы препроцессора: #DEFINE ... #UNDEF и #IF ... #ENDIF. Комментарии и команды Visual FoxPro, включенные в файл заголовка, игнорируются.
Программа может содержать сколько угодно директив #INCLUDE, причем в любом месте программы. Директивы #INCLUDE можно использовать и в файле заголовка, то есть они могут быть вложенными.
Файлы заголовков обычно имеют расширение имени .H, хотя в принципе расширение может быть любым. В Visual FoxPro используется файл заголовка FOXPRO.H. Он содержит многие из констант, описанных в данной документации.

Пример

* В следующем примере используются два файла ѕ файл заголовка
* CONST.H и файл программы MYPROG.PRG. Файл заголовка содержит
* несколько директив #DEFINE, формирующих константы этапа
* компиляции. В файле программы директива #INCLUDE используется для
* включения файла заголовка CONST.H во время компиляции, чтобы
* константы этапа компиляции из файла заголовка стали доступны
* программе.
*** Header file CONST.H ***
#DEFINE ERROR_NODISK	    1
#DEFINE ERROR_DISKFULL  2
#DEFINE ERROR_UNKNOWN  3

*** Program file MYPROG.PRG ***
#INCLUDE CONST.H

FUNCTION chkerror
PARAMETER errcode
  DO CASE
    CASE errcode = ERROR_NODISK
      ?"Error - No Disk"
    CASE errcode = ERROR_DISKFULL
      ?"Error - Disk Full"
    CASE errcode = ERROR_UNKNOWN
      ?"Unknown Error"
  ENDCASE
RETURN

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.