Вниз
Скачать: CL | DM;

Проверка на наличие элемента в ListBox   Найти похожие ветки 

 
AlexanderMS ©   (2006-04-24 19:24) [0]

Помогите, пожалуйста! Можно ли проверить наличие элемента в ListBox? В списке - около 7 тысяч элементов, и было бы нерационально перебирать их все. Список неупорядочен. Может, существует какая-нибудь функция?


 
KilkennyCat ©   (2006-04-24 19:28) [1]

неупорядочный список 0- только тупым перебором. Если упорядочить - то будет намного проще....


 
AlexanderMS ©   (2006-04-24 19:35) [2]

Мне нельзя допустить наличие двух и более одинаковых элементов в списке после переименования одного из элементов. А делать это придётся часто - такая уж программа! Есть какой-нибудь способ?


 
EvS ©   (2006-04-24 19:45) [3]

Свойство Items имеет тип TStrings
Класс TStrings имеет метод IndexOf


 
Гаврила ©   (2006-04-24 20:06) [4]

Если у тебя поиск с помощью "indexOf" занимает, на твой взгляд, неприемлимое время ,и если список дейстувительно должен быть неупорядоченный, то советую держать второй невидимый список - сортированный, и наличие проверять в нем, содержимое дублировать.
Неплохой класс для этого - THashedStringList


 
KilkennyCat ©   (2006-04-25 11:14) [5]


>  [3] EvS ©   (24.04.06 19:45)
> Свойство Items имеет тип TStrings
> Класс TStrings имеет метод IndexOf


function TStrings.IndexOf(const S: string): Integer;
begin
 for Result := 0 to GetCount - 1 do
   if CompareStrings(Get(Result), S) = 0 then Exit;
 Result := -1;
end;


 
AlexanderMS ©   (2006-04-25 19:01) [6]

Большое спасибо



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.036 c
9-1129585447
Винтик
2005-10-18 01:44
2006.05.14
Кто нибудь делал диалоги на DelphiWebScript ?


3-1142926431
Jane
2006-03-21 10:33
2006.05.14
Использование в коннектах через BDE user name заданных кириллицей


4-1140438417
Pit
2006-02-20 15:26
2006.05.14
Процессы


2-1145644332
Kostafey
2006-04-21 22:32
2006.05.14
Обрашение к биту данных


2-1146147261
Kolyan()
2006-04-27 18:14
2006.05.14
Поддержка синтаксиса в приложении




   Наверх