Вы можете создавать процедуры и функции программным способом.

Для создания процедуры

  1. Начните определение процедуры с оператора PROCEDURE и имени процедуры.

  2. Для определения параметров, во второй строке определения процедуры оператор LPARAMETERS или PARAMETERS со списком параметров.

    - или -

    На той же строке, на которой находится оператор PROCEDURE непосредственно после имени процедуры включите список параметров, заключенный в круглые скобки.

  3. На последующих строках включите операторы кода, которые вы желаете исполнить в процедуре.

  4. Завершите определение процедуры ключевым словом ENDPROC.

Например, приведенные ниже строки кода показывают простой пример процедуры:

 CopyCode image Скопировать код
PROCEDURE myProcedure
   LPARAMETERS myPar1, myPar2
   myPar1 = myPar1 + myPar2
ENDPROC

- или -

 CopyCode image Скопировать код
PROCEDURE myProcedure(myPar1, myPar2)
  myPar1 = myPar1 + myPar2
ENDPROC

По умолчанию значения передаются в процедуры по ссылке. Поэтому изменения, сделанные в посланных значениях в процедуре посылаются назад в вызывающую программу.

Для получения более подробной информации смотрите Команда PROCEDURE, Команда PARAMETERS, and Команда LPARAMETERS.

Для создания функции

  1. Начните определение функции с команды FUNCTION и имени функции.

  2. Для определения параметров на второй строке определения функции включите операторы LPARAMETERS или PARAMETERS со списком параметров.

    - или-

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

  3. В следующих строках кода включите операторы кода, которые вы желаете исполнять в функции.

  4. Включите команду RETURN, в месте, в котором вы желаете вернуть значение и управление коду, исполняемому в вызывающей программе.

  5. Завершите определение функции ключевым словом ENDFUNC.

Например, приведенные ниже строки кода показывают простой пример функции:

 CopyCode image Скопировать код
FUNCTION myFunction
  LPARAMETERS myPar1, myPar2
  myFuncReturnValue = myPar1 + myPar2
  RETURN myFuncReturnValue
ENDFUNC

- или -

 CopyCode image Скопировать код
FUNCTION myFunction(myPar1, myPar2)
  myFuncReturnValue = myPar1 + myPar2
  RETURN myFuncReturnValue
ENDFUNC

По умолчанию, значения посылаются в определенные пользователем функции по значению. Поэтому изменения сделанные в посланных значениях в функции не посылаются назад вызывающей программе.

Для получения более подробной информации смотрите Команда FUNCTION, Команда PARAMETERS и Команда LPARAMETERS.

Смотрите также