易语言字节集数组到字节集源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 数组, 字节集, , "5"

数组 [1] ＝ { 1, 2, 3 }
数组 [2] ＝ { 4, 5, 6 }
数组 [3] ＝ { 8, 9, 10 }
调试输出 (字节集数组到字节集 (数组))
结束 ()

.子程序 字节集数组到字节集, 字节集, , By:小路 QQ:377343266
.参数 字节集数组, 字节集, 数组
.局部变量 i, 整数型
.局部变量 数组地址, 整数型
.局部变量 成员地址, 整数型
.局部变量 成员长度, 整数型
.局部变量 成员数据, 字节集
.局部变量 字节集, 字节集

数组地址 ＝ 取变量数据地址 (字节集数组)
.计次循环首 (指针到整数 (数组地址 － 4), i)
    成员地址 ＝ 指针到整数 (数组地址 ＋ (i － 1) × 4)
    .如果真 (成员地址 ＞ 0)
        成员长度 ＝ 指针到整数 (成员地址 ＋ 4)
        成员数据 ＝ 指针到字节集 (成员地址 ＋ 8, 成员长度)
        字节集 ＝ 字节集 ＋ 成员数据
    .如果真结束

.计次循环尾 ()
返回 (字节集)

.子程序 取字节集数组成员数, 整数型
.参数 字节集, 字节集, 数组

返回 (指针到整数 (取变量数据地址 (字节集) － 4))

@woxl