Functions.ArrayProtect 方法 (__Array) |
命名空间: XSharp.RT
1FUNCTION Start() 2 LOCAL aWriteProtect AS ARRAY 3 aWriteProtect := ArrayCreate(2) 4 ArrayPut(aWriteProtect, 1, "原始") 5 ArrayPut(aWriteProtect, 2, "原始") 6 ArrayProtect(aWriteProtect) 7 // 在调用函数中允许写入 8 ArrayPut(aWriteProtect, 1, "主函数") 9 // 在被调用函数中不允许写入 10 TryChange(aWriteProtect) 11 ArrayDeprotect(aWriteProtect) 12 // 允许写入(无保护) 13 TryChange(aWriteProtect) 14FUNCTION TryChange(aPassed) 15 ArrayPut(aPassed, 1, "子函数")