几种方式把文本数组合并成文本源代码

.子程序 _按钮1_被单击
.局部变量 数组文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 Time, 双精度小数型

重定义数组 (数组文本, 假, 数组成员数)
.计次循环首 (数组成员数, i)
.如果 (取随机数 (1, 2) ＝ 1)
数组文本 [i] ＝ “啊”
.否则
数组文本 [i] ＝ “a”
.如果结束

.计次循环尾 ()
Time ＝ 取启动时间 ()
调试输出 (数组叠加极速 (数组文本))
输出调试文本 (“使用极速代码时间：” ＋ 到文本 (取启动时间 () － Time) ＋ “毫秒”)

.子程序 _按钮2_被单击
.局部变量 数组文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 Time, 双精度小数型

重定义数组 (数组文本, 假, 数组成员数)
.计次循环首 (数组成员数, i)
.如果 (取随机数 (1, 2) ＝ 1)
数组文本 [i] ＝ “啊”
.否则
数组文本 [i] ＝ “a”
.如果结束

.计次循环尾 ()
Time ＝ 取启动时间 ()
调试输出 (内存操作_内存堆叠 (数组文本))
输出调试文本 (“使用极速代码时间：” ＋ 到文本 (取启动时间 () － Time) ＋ “毫秒”)

.子程序 内存操作_内存堆叠, 文本型, 公开, 该方法同样适用 文本堆叠
.参数 ByteClass, 文本型, 数组, 欲被堆叠成一个字节集的 字节集数组
.局部变量 retCache, 文本型
.局部变量 lpCache, 整数型
.局部变量 i, 整数型
.局部变量 Len, 整数型
.局部变量 offset, 整数型

retCache ＝ 取空白文本 (1024)
lpCache ＝ 取变量数据地址 (retCache)
offset ＝ 0
.计次循环首 (取数组成员数 (ByteClass), i)
Len ＝ 取文本长度 (ByteClass [i])
写到内存 (ByteClass [i], lpCache ＋ offset, Len)
offset ＝ offset ＋ Len
.计次循环尾 ()
返回 (删全部空 (retCache))