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 内存管理[3]

Delphi http post json示例

Delphi执行查询语句时的进度条怎么做

Delphi pchar和array [0..255] of char的区别

Delphi 如何清空image1

Delphi文件分割合并

Delphi 数组类型与数组指针的巧妙利用

Delphi比较两个位图是否相同

Delphi tfile

Delphi http 常见异常状态及Delphi idhttp 控件处理方式

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

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