Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с TStringList.Duplicates в ЛистБоксе [D5]


Starkom ©   (2002-03-11 13:34:00) 

Сначала делаю ListBox1.Clear,
затем делаю TStringList(ListBox1.Items).Duplicates:=dupIgnore,
и не помогает! Затем в этот листбокс вставляются одинаковые строки :( В хелпе написано, что не должны. Может кто-нибудь что-нибудь посоветует?


McSimm   (2002-03-11 13:52:00) [1]

Точнее TListBox.Items это наследник TStrings - TListBoxStrings. Но у него нет механизмов по сортировке и duplicates.

Надо вручную проверять перед добавлением:
if ListBox1.Items.IndexOf(S) = -1 then ListBox1.Items.Add(S)


Starkom   (2002-03-11 13:51:00) [2]

MBo, 10x, хотя код сильно замусорится теперь :((


Starkom   (2002-03-11 13:49:00) [3]

и что делать?
P.S.
TStrings же, вообще, абстрактный класс.


MBo   (2002-03-11 13:48:00) [4]

в ListBox это не работает
или делай вспомогательный StringList и из него потом Assign,
или проверяй до вставки
if ListBox.Items.IndexOf(s)<0 then ListBox.Items.Add(s);


Виктор Щербаков   (2002-03-11 13:46:00) [5]

TListBox.Items - это TStrings, а ты обращаешься с ним как с TStringList!


Наверх

Титульная страница Поиск, карта сайта Написать письмо