EMPTY( ) (Función)
Determina si una expresión está vacía o no.
EMPTY(eExpression)
Valores devueltos
Logical
Parámetros
eExpression
Especifica la expresión evaluada por EMPTY( ).La expresión que incluya puede ser una expresión de caracteres, numérica, de fecha o lógica, o el nombre de un campo memo o general de una tabla abierta. EMPTY( ) devuelve verdadero (.T.) cuando las expresiones de los tipos de datos siguientes contienen los datos indicados:
Tipo de expresión Se evalúa como Character La cadena vacía, espacios en blanco, tabulaciones, retornos de carro o avances de línea o cualquier combinación de éstos. Numeric 0 Currency 0 Float 0 Integer 0 Double 0 Date Vacío (p.e., CTOD('')) DateTime Vacío (p.e., CTOD('')) Logical Falso (.F.) Memo Vacío (sin contenido) General Vacío (sin objeto OLE) Picture Vacío (sin imagen) EMPTY( ) no puede utilizarse para determinar si una referencia de objeto de variable está vacía. Por ejemplo, una variable puede contener una referencia de objeto para un formulario. Si el formulario se cierra haciendo clic en Cerrar desde el menú contextual del formulario o con CLEAR WINDOWS, la variable contendrá el valor nulo.
El programa de ejemplo siguiente demuestra cómo usar TYPE( ) y ISNULL( ) para determinar si una referencia de objeto de variable es válida.
goMyForm = CREATEOBJECT('Form') WAIT WINDOW IIF(TYPE('goMyForm') = 'O' AND !ISNULL(goMyForm), ; 'goMyForm has valid object reference',; 'goMyForm does not have valid object reference')
Observaciones
EMPTY( ) devuelve verdadero (.T.) si la expresión eExpression está vacía. Si la expresión no está vacía, EMPTY(°) devolverá falso (.F.).
Ejemplo
El ejemplo siguiente abre la tabla customer
de la base de datos testdata
. FOR ... Se usa FOR ... ENDFOR para crear un bucle en el cual se usa EMPTY( ) para determinar si TAG( ) devuelve la cadena vacía. El nombre de cada etiqueta de índice estructural se muestra con su estado de candidato.
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer && Open customer table
FOR nCount = 1 TO 254
IF !EMPTY(TAG(nCount)) && Checks for empty string
? TAG(nCount) && Display tag name
? CANDIDATE(nCount) && Display candidate status
ELSE
EXIT && Exit the loop when no more tags are found
ENDIF
ENDFOR