Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];

Вниз

Проверка на наличие элемента в 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 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.05.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.016 c
3-1142929779
_RusLAN
2006-03-21 11:29
2006.05.14
Unknown Error - Can t retrieve plan


3-1143117757
MakNik
2006-03-23 15:42
2006.05.14
Оптимизация ПК для работы MSSQL


3-1142616387
Silver...
2006-03-17 20:26
2006.05.14
Могу ли? Если да то как? Послать определенное сообшение...


15-1145340053
Некто_
2006-04-18 10:00
2006.05.14
ГОСТ Р 41.52-2001 (Правила ЕЭК ООН № 52)


2-1145768049
Holod
2006-04-23 08:54
2006.05.14
График





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский