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 实现对xml文件的读写操作

Delphi fmx检查应用程序状态更改

Delphi 守护进程 杀死自己的进程再重新启动自己

Delphi 获取当前进程的父进程

tmsweb core 组件居中显示

Delphi http协议验证访问datasnap rest 服务器

Delphi中编写参数个数可变的函数

Delphi 取得 ios 辅助使用里的字型大小

Delphi trimleft 删除字符串左边的空格

Delphi 如何得到 winrar 处理解压缩文件的返回值 ？

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

转载请注明出处：木庄网络博客 » delphi 如何快速从列表框TListBox中删除重复项