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