本文整理自网络,侵删。
如何快速从列表框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 datasettojson jsontodataset
Delphi firemonkey里触发home按键被按下的事件
Delphi adoquery连接数据库的查询、插入、删除、修改
更多相关阅读请进入《Delphi》频道 >>