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

PCOUNT( )

Возвращаемое значение

Numeric

Remarks

Функция PCOUNT( ) используется, когда нужно определить, сколько параметров передано программе, процедуре или пользовательской функции.

Примеры

В примере 1 вызывается процедуры и в окне ожидания отображается количество переданных параметров.

В примере 2 используется процедура, отображающая среднее четырех значений.

Пример 1

  Скопировать код
DO testpar WITH 1,2,3

PROCEDURE testpar
PARAMETERS gn1,gn2,gn3
gcMessage = 'PCOUNT( ) ='+ALLTRIM(STR(PCOUNT( )))
WAIT WINDOW (gcMessage)
RETURN

Пример 2

  Скопировать код
SET TALK OFF
gnVal1 = 10
gnVal2 = 20
gnVal3 = 30
gnVal4 = 15
gnMin = getavg(gnVal1, gnVal2, gnVal3, gnVal4)
? 'Average value is '
?? gnMin

* Эта пользовательская функция может принимать до 9 параметров.
* Функция PCOUNT( ) используется для определения количества фактически 
* переданных параметров и возвращает их среднее значение.

FUNCTION getavg
PARAMETERS gnPara1,gnPara2,gnPara3,gnPara4,gnPara5, ;
   gnPara6,gnPara7,gnPara8,gnPara9
IF PCOUNT( ) = 0
   RETURN 0
ENDIF
gnResult = 0
FOR gnCount = 1 to PARAMETERS( )
   gcCompare = 'gnPara' +(STR(gnCount,1))
   gnResult = gnResult + EVAL(gcCompare)
ENDFOR
gnResult = gnResult / (gnCount - 1)
RETURN gnResult

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