Помещает в массив переменных памяти имя класса объекта, а также имена его родительских классов.

ACLASS(ArrayName, oExpression)

Параметры

ArrayName

Задает имя массива, в который помещаются имена классов. Если задано имя несуществующего массива, Visual FoxPro автоматически создает такой массив. Если задано имя существующего массива, который не в состоянии вместить все имена родительских классов, Visual FoxPro автоматически увеличивает размер массива. Если в массиве больше элементов, чем необходимо, он укорачивается. Если задано имя существующего двумерного массива, он преобразуется в одномерный.

oExpression

Задает объект, имя класса и имена родительских классов которого следует поместить в массив. oExpression может быть любым выражением объекта, например ссылкой на объект, переменной памяти объекта или элементом массива объекта.

Expand imageВозвращаемое значение

Числовое

Expand imageПримечания

Функция ACLASS( ) создает одномерный массив, содержащий имя класса и имена родительских классов заданного объекта. Первый элемент массива содержит имя класса данного объекта, второй элемент ѕ имя класса-родителя этого объекта, третий ѕ имя класса-родителя родителя этого объекта и т.д.

Функция ACLASS( ) возвращает число имен классов в массиве. Если массив создать нельзя, ACLASS( ) возвращает 0.

Expand imageПример

В следующем примере из базового класса Form создаются два класса пользователя: FormChild и FormGrandChild. Функция ACLASS( ) используется для создания массива с именем gaNewarray содержащего имена класса, которые затем отображаются.
  CopyCode imageCopy Code
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

Expand imageСмотрите также