Compartir a través de

ACLASS( ) (Función)

  • Artículo

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)