导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2004/3/4 12:15:10
标题:
如何删除COMBOBOX列表项里的一些重复记录?
浏览:2255
加入我的收藏
楼主:
请问高手,我想把COMBOBOX里的列表项的一些重复记录删掉,如何做啊? 我有个想法,但不知道如何实现:把它读到一个数组里,然后比较,删除重复的,再重新添加到COMBOBOX里,是不是很麻烦啊? 请高手指导,谢谢!!!!
----------------------------------------------
-
作者:
2004/3/4 12:43:02
1楼:
with ComboBox1 do begin Sorted:=True; si:=0; while si<Items.Count-1 do begin if Items[si]=Items[si+1] then Items.Delete(si) else inc(si); end; end;
----------------------------------------------
-
作者:
2004/3/4 13:38:10
2楼:
谢谢!!!! 调试通过了。 如果要学习了解这些属性,该看哪些书呢?可不可以推荐一下^_^
----------------------------------------------
-
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2004/3/4 13:50:53
3楼:
http://www.2ccc.com/ 到这里下载 多的是!
----------------------------------------------
作者:
2004/3/4 13:56:40
4楼:
如果记录多了 速度会不会变慢呀?
----------------------------------------------
人生得意须尽欢,莫使金樽空对月!
作者:
2004/3/4 14:34:46
5楼:
TO:3楼的,论坛老是上不去,用户名,密码不对…… TO:4楼的,我的那个COMBOBOX里有70多个,还好,没有什么感觉,一点就出来了。 我想对多个COMBOB0X都做这样的初始化,感觉应该可行,可老出错,请大家指教: for i:=1 to 10 do with ComboBox+'i' do begin / /这一句出错 Sorted:=True; si:=0; while si<Items.Count-1 do begin if Items[si]=Items[si+1] then Items.Delete(si) else inc(si); end; end; 应该怎么改呢?
----------------------------------------------
-
作者:
2004/3/4 15:10:49
6楼:
for i:=0 to ComponentCount - 1 do begin if Components[i].ClassNameIs('TComboBox') then begin with TComboBox( Components[i]) do begin ...
----------------------------------------------
-
作者:
2004/3/4 17:10:52
7楼:
谢谢谢谢 bjdribllec 可不可以再说的详细点呢? 为什么要改为TCombox啊?
----------------------------------------------
-
作者:
2004/3/4 17:25:05
8楼:
不是TCombox而是TComboBox,呵呵。表示类。
----------------------------------------------
-
作者:
2004/3/4 18:16:19
9楼:
往ComboBox里加数据的sql为什么不加distinct呢。。。。。。。。。。。
----------------------------------------------
依然记得从你口中说出再见坚强如铁 昏暗中有种烈日灼伤的错觉 黄昏的地平线 画出一句离别 爱情进入永夜 依然记得从你眼中滑落的泪伤心欲决 混乱中有种烈日灼伤的错觉 黄昏的地平线 割断幸福喜悦 相爱已经幻灭
作者:
2004/3/4 19:02:21
10楼:
看了,有点理解了,太强了,感觉这个思路很好,很好…… 谢谢,老大,你行!
----------------------------------------------
-