Freigeben über

ACLASS( )-Funktion

  • Artikel

Schreibt den Namen der Klasse eines Objekts sowie die Namen der Oberklassen der Klasse des Objekts in ein Array.

ACLASS(ArrayName, oExpression)

Rückgabewerte

Numerisch

Parameter

  • ArrayName
    Gibt den Namen des Arrays an, in das die Namen der Klassen des Objekts geschrieben werden sollen. Wenn Sie den Namen eines Arrays angeben, das noch nicht vorhanden ist, wird dieses Array von Microsoft Visual FoxPro automatisch erstellt. Wenn Sie den Namen eines vorhandenen Arrays angeben, das entweder nicht groß genug ist, um die Namen aller Klassen aufnehmen zu können, oder größer als erforderlich ist, wird es von Visual FoxPro automatisch vergrößert an. Ist das Array größer als erforderlich, wird es abgeschnitten. Wenn Sie den Namen eines bereits vorhandenen zweidimensionalen Arrays angeben, wird das Array automatisch in ein eindimensionales Array umgewandelt.
  • oExpression
    Gibt das Objekt an, für das der Name seiner Klasse sowie die Namen der Oberklassen in das Array geschrieben werden sollen. oExpression kann jeder Objektausdruck sein, also zum Beispiel ein Objektverweis, eine Objektvariable oder ein Element eines Objektarrays.

Hinweise

ACLASS( ) erstellt ein eindimensionales Array, das den Namen der Klasse des angegebenen Objekts sowie die Namen der Oberklassen dieser Klasse enthält. Das erste Arrayelement enthält den Namen der Klasse des Objekts, das zweite Element enthält den Namen der übergeordneten Klasse des Objekts, das dritte Element den Namen der wiederum übergeordneten Klasse usw.

ACLASS( ) gibt die Anzahl der in das Array geschriebenen Klassennamen zurück. ACLASS( ) gibt 0 zurück, wenn das Array nicht erstellt werden kann.

Beispiel

Im folgenden Beispiel werden zwei benutzerdefinierte Klassen, nämlich FormChild und FormGrandChild, aus der Formularbasisklasse von Visual FoxPro erstellt. Mit ACLASS( ) wird ein Array mit Namen gaNewarray erstellt, das die Klassennamen enthält, die anschließend angezeigt werden.

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

Siehe auch

ADD CLASS-Befehl | AMEMBERS( )-Funktion | CREATE CLASS-Befehl |CREATE CLASSLIB-Befehl | CREATEOBJECT( )-Funktion | DEFINE CLASS-Befehl