Functions.IsObject 方法 |
命名空间: XSharp.RT
1FUNCTION OOpsCheck(uObject) AS LOGIC 2 LOCAL lSuccess AS LOGIC 3 LOCAL aObject AS ARRAY 4 lSuccess := IsObject(uObject) 5 IF lSuccess 6 // 显示对象内容 7 aObject := Object2Array(uObject) 8 FOR i := UPTO ALen(aObject) 9 QOut(aObject[i]) 10 NEXT 11 ELSE 12 ? "需要对象" 13 ENDIF 14 RETURN lSuccess