Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Дубликаты в списке   Найти похожие ветки 

 
00110011   (2010-02-12 15:00) [0]

как грамотнее всего проверить есть ли в списке (TStrings) дубликаты.


 
Игорь Шевченко ©   (2010-02-12 15:04) [1]

критерий грамотности не озвучен


 
00110011   (2010-02-12 15:06) [2]

наиболее быстро. Пока что для себя вижу только использование 2-го TStrings


 
И. Павел ©   (2010-02-12 15:31) [3]


> Пока что для себя вижу только использование 2-го TStrings

Зачем второй TStrings? Можно просто в два цикла:
 for i:=0 to length-1
   for j:=0 to i-1
     if строка[i]=строка[j] then дубль.

Хотя и не уверен, что этот способ достаточно быстрый.


 
Игорь Шевченко ©   (2010-02-12 15:40) [4]

00110011

TstringList.Sorted + TStringList.Duplicates := dupError + TStringList.Assign(Source)


 
00110011   (2010-02-12 15:43) [5]


> TstringList.Sorted + TStringList.Duplicates := dupError
> + TStringList.Assign(Source)


то что надо спасибо


 
Anatoly Podgoretsky ©   (2010-02-12 16:05) [6]


> то что надо спасибо

А чего же ты молчал, говорил зачем то о проверке, вместо того что бы прямо сказать.



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

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.052 c
2-1269172946
Первокурсница
2010-03-21 15:02
2010.08.27
Программа вылетает (delphi 7), свойство кнопки Enabled или Visibl


15-1271172177
bss
2010-04-13 19:22
2010.08.27
Объясните, пожалуйста, насчет синтаксиса XSD


2-1269057230
Delphist2
2010-03-20 06:53
2010.08.27
бинарный поиск в listbox


2-1268910138
QAZ
2010-03-18 14:02
2010.08.27
Что будет со строкой


3-1240576232
Гарик
2009-04-24 16:30
2010.08.27
Пользователи в Oracle