删除重复数组内容
.版本 2.支持库 EDataStructure
.子程序 _按钮2_被单击
.局部变量 i, 整数型
.局部变量 文本数组, 文本型, , "0"
编辑框1.内容 ＝ “”
文本数组 ＝ { “1”, “2”, “3”, “2” }
数组去重复 (文本数组)' 主要代码
.计次循环首 (取数组成员数 (文本数组), i)
编辑框1.加入文本 (文本数组 ＋ #换行符)
.计次循环尾 ()
.子程序 数组去重复
.参数 文本数组, 文本型, 参考 数组
.局部变量 节点, 节点
.局部变量 返_文本数组, 文本型, , "0"
.局部变量 i, 整数型
.计次循环首 (取数组成员数 (文本数组), i)
.如果真 (节点.加入属性 (文本数组 , 真))
加入成员 (返_文本数组, 文本数组 )
.如果真结束
.计次循环尾 ()
文本数组 ＝ 返_文本数组
.版本 2
.计次循环首 (取数组成员数 (数组2), i)
.如果真 (取数组成员数 (数组2) ＜ i)
跳出循环 ()
.如果真结束
.变量循环首 (取数组成员数 (数组2), i ＋ 1, -1, i2)
.如果真 (数组2 ＝ 数组2 )
删除成员 (数组2, i2, )
.如果真结束
.变量循环尾 ()
.计次循环尾 ()
淡定一下吧，不要太鸡冻呵，要淡定！
页:
[1]