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

NoteNote

Максимальное число уровней компилятора для #INCLUDE == 4.

#INCLUDE FileName

Параметры

FileName

Задает имя файла заголовка, который включается в программу в процессе компиляции.

Вместе с именем файла заголовка можно задать путь к нему. Если путь задан, Visual FoxPro ведет поиск файла только в указанном месте.

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

Expand imageПримечания

YМожно создавать файлы заголовков, включающие директивы препроцессора, а затем с помощью директивы #INCLUDE сливать содержимое файла заголовка с программой во время компиляции. Содержимое файла заголовка вставляется в программу в процессе компиляции в той точке, где стоит #INCLUDE.

В файле заголовка распознаются только следующие директивы препроцессора: #DEFINE ... #UNDEF и #IF ... #ENDIF. Комментарии и команды Visual FoxPro, включенные в файл заголовка, игнорируются.

Программа может содержать сколько угодно директив #INCLUDE, причем в любом месте программы. Директивы #INCLUDE можно использовать и в файле заголовка, то есть они могут быть вложенными.

Файлы заголовков обычно имеют расширение имени .H, хотя в принципе расширение может быть любым. В Visual FoxPro используется файл заголовка FOXPRO.H. Он содержит многие из констант, описанных в данной документации.

Expand imageПример

В следующем примере используются два файла - файл заголовка CONST.H и файл программы MYPROG.PRG. Файл заголовка содержит несколько директив #DEFINE, формирующих константы этапа компиляции. В файле программы директива #INCLUDE используется для включения файла заголовка CONST.H во время компиляции, чтобы константы этапа компиляции из файла заголовка стали доступны программе.
  CopyCode imageCopy Code
*** 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

Expand imageСмотрите Также