FUNCTION ClassList() AS ARRAY
public static __Array ClassList()
1CLASS MyClass 2END CLASS... 3FUNCTION PrintClass() 4 LOCAL aClass AS ARRAY 5 aClass := ClassList() 6 // 预定义的系统类首先列出。 7 FOR i := 1 UPTO ALen(aClass) 8 QOut(aClass[i]) 9 NEXT