Count parameters

4D v20 R7

Count parameters


Count parameters -> Resultado

Parámetro	Tipo	Descripción
Resultado	Entero largo	Número de parámetros efectivamente pasados

Descripción

El comando Count parameters devuelve el número de parámetros pasados a un método de proyecto.

Advertencia: Count parameters es significativo sólo en un método de proyecto que haya sido llamado por otro método (método de proyecto u otro). Si el método de proyecto que llama Count parameters está asociado a un menú, Count parameters devuelve 0.

Ejemplo 1

Los métodos de proyecto de 4D aceptan parámetros opcionales, a partir de la derecha.
Por ejemplo, puede llamar al método MiMetodo(a;b;c;d) de las siguientes formas:

 MiMetodo(a;b;c;d) ` Todos los parámetros se pasan

 MiMetodo(a;b;c) ` El último parámetro no se pasa

 MiMetodo(a;b) ` Los dos últimos parámetros no se pasan

 MiMetodo(a) ` Sólo se pasa el primer parámetro

 MiMetodo ` No se pasa ningún parámetro

Utilizando Count parameters desde MiMetodo, puede detectar el número de parámetros pasados y efectuar diferentes operaciones dependiendo de lo que haya recibido. El siguiente ejemplo muestra un mensaje de texto y puede insertar el texto en un área 4D Write o enviar el texto a un documento en disco:

  ` Método de proyecto AGREGAR TEXTO

  ` AGREGAR TEXTO ( Texto { ; Entero largo { ; Hora } } )

  ` AGREGAR TEXT ( Texto { ; Área 4D Write { ; RefDoc } } )

 

 C_TEXT($1)

 C_TIME($2)

 C_LONGINT($3)

 

 MESSAGE($1)

 If(Count parameters>=3)

    SEND PACKET($3;$1)

 Else

    If(Count parameters>=2)

       WR INSERT TEXT($2;$1)

    End if

 End if

Después de añadir este método de proyecto a su aplicación, puede escribir:

 AGREGAR TEXTO(vtText) ` Mostrar sólo el mensaje de texto

 AGREGAR TEXTO(vtText;$wrArea) ` Mostrar el mensaje de texto y añadir el texto a $wrArea

 AGREGAR TEXTO(vtText;0;$vhRefDoc) ` Mostrar el mensaje de texto y escribirlo en $vhDocRef

Ejemplo 2

Los métodos de proyecto de 4D aceptan un número variable de parámetros del mismo tipo, a partir de la derecha. Para declarar estos parámetros, utilice las directivas de compilación a las cuales usted pasa ${N} como una variable, donde N especifica el primer parámetro. Utilizando Count parameters puede referenciar estos parámetros con un bucle For y la sintaxis de indirección de parámetro. Este ejemplo es una función que devuelve el número más grande recibido como parámetro:

  ` Método de proyecto Max de

  ` Max de ( Real { ; Real2... ; RealN } ) -> Real

  ` Max de ( Valor { ; Valor2... ; ValorN } ) -> Valor máximo

 

 C_REAL($0;${1}) ` Todos los parámetros son de tipo REAL así como el resultado de la función

 $0:=${1}

 For($vlParam;2;Count parameters)

    If(${$vlParam}>$0)

       $0:=${$vlParam}

    End if

 End for

Después de añadir este método de proyecto a su aplicación, puede escribir:

vrResult:=Max of(Records in set("Operación A");Records in set("Operación B"))

vrResult:=Max of(r1;r2;r3;r4;r5;r6)

Ver también

Comandos del Compilador
Copy parameters