Functions.AClass 方法 | |
-- todo --
将对象的类名及其祖先类名放入变量数组中。
命名空间:
XSharp.VFP
程序集:
XSharp.VFP (在 XSharp.VFP.dll 中) 版本:2.22 GA
语法 FUNCTION AClass(
ArrayName,
oExpression
) AS USUAL CLIPPER
[ClipperCallingConventionAttribute(new string[] { ... })]
public static __Usual AClass(
__Usual ArrayName = default,
__Usual oExpression = default
)
查看代码参数
- ArrayName (Optional)
- 类型:__Usual
指定用于存放类名的数组名称。
- oExpression (Optional)
- 类型:__Usual
指定一个对象,其类名和祖先类名将被放入数组中。
oExpression 可以是任何对象表达式,如对象引用、对象变量或对象数组元素。
返回值
类型:
__Usual数值
备注
如果指定的数组名不存在,X# 会自动创建该数组。
如果指定的现有数组不够大,无法容纳所有父类名,X# 会自动增加数组的大小。
如果数组大于所需大小,数组大小将被截断。如果指定了现有的二维数组,
该数组将被重新调整为一维数组。
AClass() 创建一个一维数组,包含指定对象的类名及其祖先类名。
数组的第一个元素包含对象的类名,第二个元素包含对象的父类名,
第三个元素包含对象的祖父类名,依此类推。
AClass() 返回数组中类名的数量。如果无法创建数组,AClass() 返回 0。
示例 1Clear
2frmMyForm = CreateObject("FormGrandChild")
3
4For nCount = 1 TO AClass(gaNewarray, frmMyForm)
5 ? gaNewarray(nCount)
6ENDFor
7
8RELEASE frmMyForm
9
10DEFINE CLASS FormChild AS ForM
11ENDDEFINE
12
13DEFINE CLASS FormGrandChild AS FormChild
14ENDDEFINE
参见