易语言5.71 系统核心支持库5.7 文本型数组指针BUG崩溃测试代码

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. .局部变量 文本数组, 文本型, , "0"
   
9. 
   
10. 
    
11. 文本数组 ＝ { “A”, “B”, “C”, “D”, “E” }
    
12. 信息框 (BUG代码 (文本数组, 文本数组 [1]), 0, , )
    
13. 
    
14. 返回 (0)  ' 可以根据您的需要返回任意数值
    
15. 
    
16. .子程序 BUG代码, 文本型
    
17. .参数 数组, 文本型, 数组
    
18. .参数 文本, 文本型, 参考
    
19. .局部变量 计数, 整数型
    
20. .局部变量 BUG, 逻辑型
    
21. 
    
22. 信息框 (数组 [1] ＋ #换行符 ＋ 文本, 0, , )
    
23. .计次循环首 (100, 计数)
    
24.     加入成员 (数组, “@”)
    
25.     .如果真 (取变量地址 (文本) ≠ 取变量地址 (数组 [1]))
    
26.         .如果真 (BUG ＝ 假)
    
27.             信息框 (“(” ＋ 到文本 (计数) ＋ “)指针出错”, 0, , )
    
28.         .如果真结束
    
29.         BUG ＝ 真
    
30.     .如果真结束
    
31. 
    
32. .计次循环尾 ()
    
33. 返回 (数组 [1] ＋ #换行符 ＋ 文本)
    
34. 
    

复制代码

1心1亿

谢谢分享看看

春天

5.9都出来了你还5.7...

朵朵

这是什么神仙bug

小清新

开开心心

笔芯

路过打酱油

222

进来看看