Functions.ArrayGet 方法 (__Array, UInt32) |
命名空间: XSharp.RT
1FUNCTION Start() 2 LOCAL aStates[3] 3 LOCAL i AS SHORTINT 4 ArrayPut(aStates, 1, "蒙大拿") 5 ArrayPut(aStates, 2, "怀俄明") 6 ArrayPut(aStates, 3, "爱达荷") 7 FOR i := 1 UPTO ALen(aStates) 8 QOut(ArrayGet(aStates, i)) 9 NEXT 10 // 以下我们用两种不同的方式打印相同的数组: 11 // FOR...NEXT 的函数等效形式 12 AEval(aStates, {|Element| QOut(Element)}) 13 // 使用 [] 获取数组元素 14 FOR i := 1 UPTO ALen(aStates) 15 QOut(aStates[i]) 16 NEXT