|
楼主 |
发表于 2018-7-8 21:20:34
|
显示全部楼层
福建省福州市
.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 a, 文本型, , "0"
.局部变量 b, 文本型, , "0"
.局部变量 数组字节集, 字节集
.局部变量 字符_插入, 文本型
.局部变量 插入字符, 字节集
.局部变量 新数组长度, 整数型
.局部变量 i
字符_插入 = “,”
插入字符 = 指针到字节集 (取变量地址 (字符_插入), 4)
' 调试输出 (指针到文本 (取字节集数据 (指针到字节集 (取变量地址 (字符_插入), 4), #整数型, )))
' 调试输出 (插入字节集)
a = { “3a”, “3”, “gt”, “ni9们都易呀” }
数组字节集 = 指针到字节集 (取变量数据地址 (a), 取数组成员数 (a) × 4)
调试输出 (数组字节集)
数组字节集 = 子字节集替换 (数组字节集, { 0 }, { 0 } + 插入字符, , )
i = 1
.判断循环首 (i ≠ -1)
调试输出 (指针到文本 (取字节集数据 (数组字节集, #整数型, i)))
.判断循环尾 ()
新数组长度 = 取字节集长度 (数组字节集) \ 4
重定义数组 (b, 假, 新数组长度)
RtlMoveMemory_1 (b, 数组字节集, 取字节集长度 (数组字节集)) ' 运行到这里出错 ,不过调试输出可以调试出结果 请问如何把文本字节集再还原回数组
调试输出 (b)
.子程序 _按钮2_被单击
.局部变量 a, 整数型, , "0"
.局部变量 数组字节集, 字节集
.局部变量 i
.局部变量 数组长度, 整数型
.局部变量 新数组, 整数型, , "0"
a = { 1, 3, 0, 100000, 20, 0 }
数组字节集 = 到字节集 (a)
调试输出 (数组字节集)
i = 1
.判断循环首 (i ≠ -1)
调试输出 (取字节集数据 (数组字节集, #整数型, i))
.判断循环尾 ()
数组字节集 = 子字节集替换 (数组字节集, { 0, 0, 0, 0 }, { }, , )
数组长度 = 取字节集长度 (数组字节集) \ 4
重定义数组 (新数组, 假, 数组长度)
RtlMoveMemory (新数组, 数组字节集, 取字节集长度 (数组字节集))
调试输出 (新数组)
.版本 2
.DLL命令 RtlMoveMemory, , , "RtlMoveMemory"
.参数 Destination, 整数型, 数组
.参数 Source, 字节集
.参数 Length, 整数型
.DLL命令 RtlMoveMemory_1, , , "RtlMoveMemory"
.参数 Destination, 文本型, 数组
.参数 Source, 字节集
.参数 Length, 整数型
|
|