易语言删除数组重复成员的代码

今天小编就为大家分享一篇关于易语言删除数组重复成员的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

删除数组重复成员的代码

				?

									.版本 2

									.支持库 spec

									.程序集 窗口程序集1

									.程序集变量 数组, 整数型, , "0"

									.子程序 __启动窗口_创建完毕

									置随机数种子 ()

									.计次循环首 (10, )

									  加入成员 (数组, 取随机数 (1, 5))

									.计次循环尾 ()

									调试输出 (数组)

									.子程序 _去重按钮_被单击

									.局部变量 计次1, 整数型

									.局部变量 计次2, 整数型

									.计次循环首 (取数组成员数 (数组), 计次1)

									  .如果真 (计次1 ＞ 取数组成员数 (数组))

									    跳出循环 ()

									  .如果真结束

									  .计次循环首 (取数组成员数 (数组) － 计次1, )

									    计次2 ＝ 计次2 ＋ 1

									    .如果真 (数组 [计次1] ＝ 数组 [计次1 ＋ 计次2])

									      删除成员 (数组, 计次1 ＋ 计次2, )

									      计次2 ＝ 计次2 － 1

									    .如果真结束

									    .如果真 (计次1 ＋ 计次2 ＝ 取数组成员数 (数组))

									      计次2 ＝ 0

									      跳出循环 ()

									    .如果真结束

									  .计次循环尾 ()

									.计次循环尾 ()

									调试输出 (数组)