VPF::Как максимально быстро убрать дубли из TstringList

Дата 3.10.2009, 05:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 2.8.2009

Репутация: 1
Всего: 1

Как максимально быстро убрать повторы из TstringList?

Делал так:

Код


    b := 0;
    while b < tsl.Count do begin
      if tsl.IndexOf(tsl.Strings[b]) < b then tsl.Delete(b) else inc(b);
    end;

Так как в переменной 300 000 строк, получается Очень долго.

Потом пытался делать так:

Код


    tsl.Duplicates := dupIgnore;
    While b < list.Count do begin
        tsl.Add(list.Strings[b]);
    end;

Но строки по прежнему повторяются, и вообще так не быстрее первого способа получается.

Потом пытался делать так:

Код


    tsl.Duplicates := dupIgnore;
    tsl.AddStrings(list);

Так быстро но повторы остаются.

Как правильно и быстро убрать повторы ?

Дата 3.10.2009, 06:28 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Цитата

Note: Duplicates does nothing if the list is not sorted.

Итого - чтобы duplicates сработало нужно еще

Код


Sorted:=True;

Дата 3.10.2009, 11:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 68
Регистрация: 2.8.2009

Репутация: 1
Всего: 1

Вот ступил я, пасиб, точно.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »