aclass( ) 函数示例

下面的示例在 visual foxpro 表单基类的基础上创建两个自定义类，分别为 formchild 和 formgrandchild。然后用 aclass( ) 函数创建一个名为 ganewarray 的数组，数组中包含了这些类名，最后显示这些类名。

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