DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: 19137911446
今日帖子: 10
在线用户: 26
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 sac863 (过客) ★☆☆☆☆ -
普通会员
2004/3/4 12:15:10
标题:
如何删除COMBOBOX列表项里的一些重复记录? 浏览:2255
加入我的收藏
楼主: 请问高手,我想把COMBOBOX里的列表项的一些重复记录删掉,如何做啊?

我有个想法,但不知道如何实现:把它读到一个数组里,然后比较,删除重复的,再重新添加到COMBOBOX里,是不是很麻烦啊?

请高手指导,谢谢!!!!

----------------------------------------------
-
作者:
男 bjdribllec ( ) ★☆☆☆☆ -
盒子活跃会员
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;

----------------------------------------------
-
作者:
男 sac863 (过客) ★☆☆☆☆ -
普通会员
2004/3/4 13:38:10
2楼: 谢谢!!!!
调试通过了。
如果要学习了解这些属性,该看哪些书呢?可不可以推荐一下^_^
----------------------------------------------
-
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/3/4 13:50:53
3楼: http://www.2ccc.com/
到这里下载 多的是!
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 dogu21 (散人) ★☆☆☆☆ -
普通会员
2004/3/4 13:56:40
4楼: 如果记录多了
速度会不会变慢呀?
----------------------------------------------
人生得意须尽欢,莫使金樽空对月!
作者:
男 sac863 (过客) ★☆☆☆☆ -
普通会员
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;
应该怎么改呢?


----------------------------------------------
-
作者:
男 bjdribllec ( ) ★☆☆☆☆ -
盒子活跃会员
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
      ...
----------------------------------------------
-
作者:
男 sac863 (过客) ★☆☆☆☆ -
普通会员
2004/3/4 17:10:52
7楼: 谢谢谢谢 bjdribllec  
 可不可以再说的详细点呢? 为什么要改为TCombox啊?
----------------------------------------------
-
作者:
男 bjdribllec ( ) ★☆☆☆☆ -
盒子活跃会员
2004/3/4 17:25:05
8楼: 不是TCombox而是TComboBox,呵呵。表示类。
----------------------------------------------
-
作者:
男 mudian (mudian) ★☆☆☆☆ -
普通会员
2004/3/4 18:16:19
9楼: 往ComboBox里加数据的sql为什么不加distinct呢。。。。。。。。。。。
----------------------------------------------
依然记得从你口中说出再见坚强如铁 
昏暗中有种烈日灼伤的错觉 
黄昏的地平线 
画出一句离别 
爱情进入永夜 
依然记得从你眼中滑落的泪伤心欲决 
混乱中有种烈日灼伤的错觉 
黄昏的地平线 
割断幸福喜悦 
相爱已经幻灭
作者:
男 sac863 (过客) ★☆☆☆☆ -
普通会员
2004/3/4 19:02:21
10楼: 看了,有点理解了,太强了,感觉这个思路很好,很好……
谢谢,老大,你行!
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行89.84375毫秒 RSS