Question

易语言去除重复问题，我想把超级列表框里面的QQ去掉重复的，然后导出来，求源码

Answer 1

超级列表框1.插入列 (, , , , , )
超级列表框1.插入表项 (, , , , , )
无重复加入项 (“测试”, 1)
无重复加入项 (“测试”, 0)
.子程序 无重复加入项
.参数 文本, 文本型
.参数 列, , 可空
.局部变量 I
.局部变量 额

额 ＝ 超级列表框1.取表项数 ()-1
.计次循环首 (额, I)
    .如果真 (超级列表框1.取标题 (I － 1, 列)==文本)
        返回 ()
    .如果真结束

.计次循环尾 ()
超级列表框1.置标题 (额, 列, 文本)

Answer 2

招徒,delphi