delphi 如何快速从列表框TListBox中删除重复项


本文整理自网络,侵删。

 
如何快速从列表框TListBox中删除重复项?
 procedure NoDup(AListBox: TListBox);
var
  lStringList: TStringList;
begin
  lStringList := TStringList.Create;
  try
    lStringList.Duplicates := dupIgnore;
    lStringList.Sorted := true;
    lStringList.Assign(AListBox.Items);
    AListBox.Items.Assign(lStringList);
  finally
    lStringList.free
  end;
end;

来源:http://www.xuexidashi.vip/h-nd-1628.html#_np=125_826

相关阅读 >>

Delphi 用拼音首字符检索汉字的源代码

Delphi 2009 中 string 与 char 的改变

Delphi 多函数形式的多线程同步-线程执行顺序

Delphi xe10.2 firedac 三种连接

Delphi获取pid的父进程文件名

Delphi气泡提示

Delphi 如何确定屏幕分辨率

Delphi 如何使用sendmessage发送后台组合键消息(ctrl+xxx)

Delphi dblookupcombobox组件的使用方法

Delphi system.messaging.pas例子

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...