Functions.IvarList 方法 |
命名空间: XSharp.RT
1CLASS Person 2 EXPORT name 3 INSTANCE grade 4 PROTECT password 5CONSTRUCTOR(tname, tgrade, tpassword) 6 name := tname 7 grade := tgrade 8 password := tpassword 9END CLASS 10 11FUNCTION MakeArray() AS VOID 12 LOCAL x AS OBJECT 13 LOCAL a AS ARRAY 14 x := Person{"Randal", "A", "123"} 15 a := IVarList(x) 16 // Print them 17 FOR i := UPTO ALen(a) 18 QOut(a[i]) 19 NEXT 20 // NAME 21 // GRADE