本文整理自网络,侵删。
如何快速从列表框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 2009 中 string 与 char 的改变
Delphi 如何使用sendmessage发送后台组合键消息(ctrl+xxx)
Delphi dblookupcombobox组件的使用方法
更多相关阅读请进入《Delphi》频道 >>