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

2025-02-25 11:33:47
推荐回答(2个)
回答1:

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

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

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

回答2:

招徒,delphi