超级列表框1.插入列 (, , , , , )
超级列表框1.插入表项 (, , , , , )
无重复加入项 (“测试”, 1)
无重复加入项 (“测试”, 0)
.子程序 无重复加入项
.参数 文本, 文本型
.参数 列, , 可空
.局部变量 I
.局部变量 额
额 = 超级列表框1.取表项数 ()-1
.计次循环首 (额, I)
.如果真 (超级列表框1.取标题 (I - 1, 列)==文本)
返回 ()
.如果真结束
.计次循环尾 ()
超级列表框1.置标题 (额, 列, 文本)
招徒,delphi