Структура программы в Visual FoxPro

« Назад

Имеет следующий вид:

<Команда, задающая параметры>

<Исполняемые операторы>

<Коды процедур и функций>

<Определения классов>

Исполняемые операторы – это команды и конструкции VFP, оператор присваивания, вызовы процедур и функций.

Части оператора, если их нужно записать на нескольких строчках, разделяются точкой с запятой, например:

replace AuthorId with 10 ;
Author with "Новый автор" ;
InputDate with Date( )

В одной строке может присутствовать только один оператор или его часть.

Пример. Код приводимой в примере программы сохраним в файле d:\ExProg.prg.

parameters p1, p2, p3 && Параметры программы

numberOfPassedParameters = Pcount( )

if numberOfPassedParameters = 3 then && Исполняемые операторы

ShowPassedParameters(p1, p2, p3)

else

MessageBox("Передано параметров: " + Transform (numberOfPassedParameters))

endif

procedure ShowPassedParameters && Процедура ShowPassedParameters( )

lparameters p1, p2, p3

? p1, p2, p3

endProc

После выполнения, например, в командном окне операторов

p1 = "Первый, "

p2 = "второй "

do d:\ExProg.prg with p1, p2, "и третий параметры."

в окно VFP будет выведено сообщение

Первый, второй и третий параметры.

Замечание. Для выполнения в командном окне нескольких операторов следует первоначально их выделить, а затем либо нажать на Enter, либо в контекстном окне, появляющемся при нажатии на правую кнопку мыши, выбрать Execute selection.

Если же файл d:\ExProg.prg открыть и запустить на исполнение, нажав Ctrl+E, то число переданных параметров будет равно нулю, что приведет к вызову функции MessageBox( ) и появлению приведенного на рис. 5.2 сообщения.

Рис. 5.2. Файл d:\ExProg.prg открыт; нажата комбинация клавиш Ctrl+E

Программа может включать комментарий, оформляемый командами &&, * или NOTE.

В отличие от команд * и NOTE, команда && может присутствовать и в строке с оператором, располагаясь после него.

Если комментарий нужно продолжить на другой строке, то в конце текущей строки комментария проставляется точка с запятой.

Примеры:

&& Это комментарий;

и его продолжение

* Это также комментарий

note Комментарий с продолжением на другой строке, задаваемый;

командой NOTE

x = 2 && Комментарий в строке с оператором