易语言API快速判断数组中的数值源码

.版本 2

.子程序 是否在数值数组内, 整数型, , 返回数值个数
.参数 数值数组, 整数型, 参考 数组
.参数 数值, 整数型
.参数 数值位置, 整数型, 参考 可空 数组, 返回该数值在数组内的位置
.局部变量 数值数组字节集, 字节集
.局部变量 长度, 整数型
.局部变量 i, 整数型
.局部变量 字节集数据, 字节集
.局部变量 数量, 整数型

清除数组 (数值位置)
字节集数据 = 到字节集 (数值)
长度 = 取数组成员数 (数值数组) × 4
数值数组字节集 = 取空白字节集 (长度)
拷贝内存_ (数值数组字节集, 数值数组, 长度)
i = 寻找字节集 (数值数组字节集, 字节集数据, 0)
.判断循环首 (i > -1)
.如果真 (i % 4 = 1)
加入成员 (数值位置, i \ 4 + 1)
数量 = 数量 + 1
.如果真结束
i = 寻找字节集 (数值数组字节集, 字节集数据, i + 1)
.判断循环尾 ()
返回 (数量)

 

 

.版本 2

.DLL命令 拷贝内存_, 整数型, “kernel32″, “RtlMoveMemory”, , RtlMoveMemory
.参数 目标缓冲区, 字节集, , Destination
.参数 源缓冲区, 整数型, 传址 数组, Source
.参数 复制长度, 整数型, , Length

Leave a Comment

 
Copyright © 2008-2021 lanxinbase.com Rights Reserved. | 粤ICP备14086738号-3 |