Проверка параметров в процедуре или функции

Иногда бывает полезно произвести проверку параметров с целью удостовериться, что в процедуру или функцию передается именно то, что нужно. Для этой цели можно использовать функции TYPE( ) и PARAMETERS( ), проверяющие тип и количество па аметров.

В предыдущем примере в функцию передается параметр типа Date. Чтобы удостове иться, что в функцию передается параметр именно этого типа, используется функция TYPE( ).

FUNCTION plus2weeks( dDate )

IF TYPE("dDate") = "D"

RETURN dDate + 14

ELSE

= MESSAGEBOX( "plus2weeks requires a date parameter" )

RETURN {} && Return an empty date

ENDIF

ENDFUNC

Если процедура ожидает меньше параметров, чем реально получает, то Visual FoxPro выдает сообщение об ошибке. Например, если процедура определена с двумя па аметрами, но при вызове ей передается три, то выдается сообщение об ошибке. Если же процедура ожидает больше параметров, чем получает при вызове, то недополуче ные параметры инициализируются значением ложь (.F.). Не существует способа оп еделить, было ли присвоено последнему параметру значение ложь (.F.) или он был пропущен. Следующая процедура производит проверку на количество переданных па аметров:

PROCEDURE SaveValue( cStoreTo, cNewVal, lIsInTable )

IF PARAMETERS( ) < 3

= MESSAGEBOX( "Insufficient Number of Parameters Passed" )

RETURN .F.

ENDIF

IF lIsInTable

REPLACE (cStoreTo) WITH (cNewVal)

ELSE

&cStoreTo = cNewVal

ENDIF

RETURN .T.

ENDPROC