易语言实现 foreach 循环遍历整数型数组并调用子程序指针提供索引/键值

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. 
    
15. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
16. 检查 (foreach ({ 2, 4, 6, 8, 10, 12345, 234567890, 2147483647 }, &回调钩子))
    
17. 
    
18. 
    
19. .子程序 foreach, 逻辑型, 公开
    
20. .参数 整数数组, 整数型, 数组
    
21. .参数 回调钩子, 子程序指针, , 参数1:索引 参数2:键值
    
22. .局部变量 索引, 整数型
    
23. 
    
24. .计次循环首 (取数组成员数 (整数数组), 索引)
    
25.     .如果真 (调用子程序 (回调钩子, , , 索引, 整数数组 [索引]) ＝ 假)
    
26.         返回 (假)
    
27.     .如果真结束
    
28. 
    
29. .计次循环尾 ()
    
30. 返回 (真)
    
31. 
    
32. .子程序 回调钩子
    
33. .参数 索引, 整数型
    
34. .参数 键值, 整数型
    
35. 
    
36. 调试输出 (索引, 键值)
    
37. 
    
38. 
    
39. 
    

复制代码

朵朵

这...

1心1亿

谢谢分享