найти и удалить текст

← →
Dot (2006-01-06 18:36) [0]

Приветствую вас, Мастера!
меня интересует алоритм, желательно код как можно провернуть следующую операцию.
Есть текстовый файл со словами, словарь так сказать где каждое слово отделено от другово #13 то есть просто на другой строке.
---------- к примеру
мама
папа
дом
лес
работа
--------------------
Так вот в этом файле встречаются повторяющиеся слова, причем как подряд по нескольку штук так и по одиночке.
Как бы удалить все копии повторяющихся слов, оставив одно?
Помогите пожалуйста.

← →
Virgo_Style © (2006-01-06 18:53) [1]

можно ли менять порядок слов? Если да, то, видимо, можно использовать TStringList с Sorted = true и Duplicates = dupIgnore (сам не пробовал)

← →
Gero © (2006-01-06 18:56) [2]

Считывать по обному и если TStringList.IndexOf > -1 то добавлять в StringList.

← →
Virgo_Style © (2006-01-06 18:58) [3]

Gero © (06.01.06 18:56) [2]

позволю себе придраться по мелочи :-) Если > -1, то как раз таки не добавлять.

← →
Gero © (2006-01-06 18:59) [4]

> Virgo_Style © (06.01.06 18:58)

Да, именно так.

← →
Dot (2006-01-06 19:08) [5]

А если без СтрингЛиста?

← →
Virgo_Style © (2006-01-06 19:44) [6]

Dot (06.01.06 19:08) [5]

...то завести массив, в который писать новое слово в том случае, если его там еще нету. Все точно так же, но вместо StringList с его методами - массив с самописными функциями. При обычном поиске будет гораздо медленнее, если ввести сортировку и т.д. - получится твой собственный StringList :-)

>каждое слово отделено от другово #13 то есть просто на другой строке.

Вообще-то на "другой строке" это #10

> Dot (06.01.06 19:08)
> А если без СтрингЛиста?

Тогда пиши хэш.

а это уже совсем другая история... :)

найти и удалить текст Найти похожие ветки