Процедуры и функции

В FoxPro предусмотрена широкая возможность использования процедур, которые могут быть как внешними (в виде отдельных программных файлов), так и внутренними (внутри программы). Частным случаем процедуры является процедура-функция. Эти средства удобно использовать для реализации некоторых одинаковых алгоритмов обработки данных. Тогда такой алгоритм программируется один раз и вызывается в системе по мере необходимости.

Обращение к процедуре выполняется командой

Do <имя командного файла> With <список параметров>.

В процедуру могут быть переданы и из нее получены некоторые величины, указанные в списке параметров после слова With. Этими величинами могут быть переменные, константы и любые разрешенные выра­же­ния. В этом случае первой командой в вызываемой процедуре должна быть Parameters <список параметров>.

Параметры, указанные в команде Do после слова With, на­зы­вают­ся фактическими или аргументами, а соответствующие им параметры в вызываемой процедуре (в команде Parameters) - формальными или просто параметрами.

Передаваемые параметры по типу должны соответствовать друг другу. Число аргументов и параметров может и не совпадать.

Узнать число фактически переданных параметров можно с помощью функции Parameters().

Завершаются файлы-процедуры одним из следующих способов:

1) достижением последней команды файла - осуществляется возврат в вызвавшую программу или на командный уровень, если это самый старший модуль;

2) командой Return - возврат в старшую программу;

3) командой Cancel - выход на командный уровень;

4) командой Quit - выход из FoxPro в Windows.

Команда Return имеет вид:

Return [То Master/<процедура>/<Bыр>]

Здесь фраза Return То Master указывает на переход к самому верх­не­му уровню вызывающих процедур, a Return То <процедура> - возврат на процедуру с указанным именем. Элемент <Выр> применяется для передачи в вызывающую программу результата, если процедура используется как процедура-функция.

В первом и втором случаях возврат в старшую программу вы­пол­няется на команду, следующую за той, от которой произошел вызов под­программы. Однако при некоторых обстоятельствах бывает желательно вер­нуться именно на команду вызова. Это можно сделать командой Retry.

Совокупность команд, составляющих внутреннюю процедуру, должна начинаться командой Procedure <имя процедуры>.

Внутренняя процедура-функция должна начинаться с команды

Function <имя функции>.

Если в процедуре или функции передаются параметры, то второй командой обязательно должна быть команда Parameters.

Завершается процедура или функция командой Return [<Выр>], где

<выр> -результат функции (.Т.).

FoxPro не делает различий между процедурами и функциями.

К функции можно обращаться и как к процедуре - командой Do. В этом случае при возврате в исходную программу значение <выр> в команде Return игнорируется.

Дата добавления: 2014-12-10