Удаление повторяющихся строк в ListBox
Если Вам необходимо проверить список на предмет одинаковых записей — есть довольно простой способ, как это сделать.
Итак, удалить одинаковые строки в списке ListBox можно следующим образом:
|
1 2 3 4 5 6 7 8 9 10 |
var sl: TStringList; begin sl := TStringList.Create; sl.Duplicates := dupIgnore; sl.sorted := true; sl.AddStrings(Listbox1.Items); Listbox1.Items := sl; sl.Free; end; |