ACLASS( ) (Función)
Incluye los nombres de clase de un objeto y los nombres de clases anteriores en una matriz de variable.
ACLASS(ArrayName, oExpression)
Valores devueltos
Numeric
Parámetros
- ArrayName
Especifica el nombre de la matriz en que se incluyen los nombres de clase. Si especifica el nombre de una matriz que no existe, Visual FoxPro la creará automáticamente. Si especifica el nombre de una matriz existente que no es suficientemente grande para dar cabida a todos los nombres primarios, Visual FoxPro aumentará automáticamente el tamaño de la matriz. Si la matriz es mayor de lo necesario, su tamaño se reducirá. Si especifica el nombre de una matriz bidimensional existente, sus dimensiones se cambiarán por las de una matriz unidimensional. - oExpression
Especifica un objeto cuyo nombre de clase y nombres de clases anteriores se incluyen en la matriz. oExpression puede ser cualquier expresión de objeto, como una referencia de objeto, una variable de objeto o un elemento de matriz de objeto.
Observaciones
ACLASS( ) crea una matriz unidimensional que contiene el nombre de clase del objeto especificado y los nombres de clases anteriores. El primer elemento de la matriz contiene el nombre de clase del objeto, el segundo elemento contiene el nombre de la clase primaria del objeto, el tercer elemento contiene el nombre de la clase predecesora (primaria de una primaria) del objeto, etc.
ACLASS( ) devuelve el número de nombres de clase de la matriz. ACLASS( ) devolverá 0 si no puede crear la matriz.
Ejemplo
El ejemplo siguiente crea dos clases personales llamadas FormChild y FormGrandChild a partir de la clase de base Form de Visual FoxPro. ACLASS( ) se utiliza para crear una matriz llamada gaNewArray
que contiene los nombres de clase, que se muestran después.
CLEAR
frmMyForm = CREATEOBJECT("FormGrandChild")
FOR nCount = 1 TO ACLASS(gaNewarray, frmMyForm) && Creates an array
? gaNewarray(nCount) && Displays the names of the classes
ENDFOR
RELEASE frmMyForm
DEFINE CLASS FormChild AS FORM
ENDDEFINE
DEFINE CLASS FormGrandChild AS FormChild
ENDDEFINE
Vea también
ADD CLASS (Comando) | AMEMBERS( ) (Función) | CREATE CLASS (Comando) |CREATE CLASSLIB (Comando) | CREATEOBJECT( ) (Función) | DEFINE CLASS (Comando)