易语言 - 模块 - 子程序 - 数组去重复

函数 

数组去重(参数)

 

函数源码:

.版本 2
.支持库 EDataStructure

.子程序 数组去重
.参数 文本数组, 文本型, 参考 数组
.局部变量 节点, 节点
.局部变量 返_文本数组, 文本型, , "0"
.局部变量 i, 整数型

.计次循环首 (取数组成员数 (文本数组), i)
    .如果真 (节点.加入属性 (文本数组 [i], 真))
        加入成员 (返_文本数组, 文本数组 [i])
    .如果真结束

.计次循环尾 ()
文本数组 ＝ 返_文本数组