如何获取所有子程序名称以及指针

王之能够21wz

如何获取所有子程序名称以及指针

如何获取指定程序集的所有的子程序文本名称以及指针？在新增的子程序依据能获取？不公开，在代码内实现，

  

子程序名	返回值类型	公开	备 注
获取子程序以及指针	文本型		返回:子程序1名称,子程序1整数型指针|子程序2名称,子程序2整数型指针|...
参数名	类 型	参考	可空	数组	备 注
程序集

.版本 2<br /> <br /> .子程序 获取子程序以及指针, 文本型, , 返回:子程序1名称,子程序1整数型指针|子程序2名称,子程序2整数型指针|...<br /> .参数 程序集

就类似上面这个意思

a2083657

易语言编译后没有保留子程序名称，反射不了。最稳的办法是自己注册，写个全局数组存名称和指针，每个子程序里加一行就行。

.版本 2
.支持库 spec

.程序集 程序集1
.程序集变量 子程序列表, 子程序信息, , "0"

.数据类型 子程序信息
    .成员 名称, 文本型
    .成员 指针, 整数型

.子程序 注册子程序, , , 每个子程序开头调用一次
.参数 子程序名, 文本型
.参数 子程序地址, 整数型
.局部变量 info, 子程序信息
info.名称 ＝ 子程序名
info.指针 ＝ 子程序地址
加入成员 (子程序列表, info)

.子程序 获取全部子程序, 文本型
.局部变量 i, 整数型
.局部变量 result, 文本型
.计次循环首 (取数组成员数 (子程序列表), i)
    result ＝ result ＋ 子程序列表 [i].名称 ＋ “,” ＋ 到文本 (子程序列表 [i].指针)
    .如果真 (i ＜ 取数组成员数 (子程序列表))
        result ＝ result ＋ “|”
    .如果真结束
.计次循环尾 ()
返回 (result)

.子程序 子程序1
注册子程序 (“子程序1”, &子程序1)
' 原有代码...

.子程序 子程序2
注册子程序 (“子程序2”, &子程序2)
' 原有代码...

这样新增子程序只要复制注册那行就行，取指针用&子程序1，随时调用获取全部子程序()就能拿到所有名称和指针。

wtflxk

只有可以取子程序名 没有取地址的 地址指针需要自己取 子程序名可以使用 取程序名称（1）