Указывает, что препроцессор 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