Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Дубликаты в списке

00110011 © (2010-02-12 15:00:00)
как грамотнее всего проверить есть ли в списке (TStrings) дубликаты.

Anatoly Podgoretsky (2010-02-12 16:05:00) [1]

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

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

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

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

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

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

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

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

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

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

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

00110011 (2010-02-12 15:06:00) [5]
наиболее быстро. Пока что для себя вижу только использование 2-го TStrings

Игорь Шевченко (2010-02-12 15:04:00) [6]
критерий грамотности не озвучен

Наверх

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