Как избежать повтор строк в тексте

[Federal]

Имею текст в компоненте Мемо1

азбука
вариант
таблица
лодка
азбука
период
азбука
вариант
...и т.д

мне нужно чтобы строки в которых повторяются слова удалялись, естественно если мы имеем 3 строки "азбука" две надо удалить одну оставить, простым способ перебора каждой строки по всему документу нереально так как таких строк примерно 300 000 ( полдня займет ), если есть мысли, прошу поделится...

[Serge_Bliznykov]

1) всё таки Вам нужно строки, в которых слова повторяются или ПОВТОРЯЮЩИЕСЯ/ строки удалить?! По Вашему примеру - именно второе!

2) строчки "Азбука" и " Азбука " одинаковые?
А строчки "Азбука" и "АЗБУКА" ?!

3) думаю, что простым перебором займёт не полдня, а пару минут.
почему не написать 10 строчек кода и не проверить?!
Только все операции надо проводить не в самом memo, а создать объект типа TStringList, в него забрать содержимое мемо и обрабатывать его.
Иначе, при работе напрямую с Memo будут большие тормоза.

4) если порядок не важен - тогда Объёкт.SORT
и все повторы станут друг за другом. можно в один проход все повторы удалить.

5) можно воспользоваться свойством игнорировать дубликаты, установить его у нового TStringList'а и построчно перегнать туда содержимое Memo (p.s. лично я не советую применять этот способ, но, возможно, я и ошибаюсь, и это будет оптимальное решение).

удачи.

[Stilet]

Так подойдет?

var s:TStringList;i:integer;
begin
 s:=TStringList.Create;
 s.Duplicates:=dupIgnore;
 s.Sorted:=true;
 s.AddStrings(Memo1.Lines);
 Memo1.Lines.Text:=s.Text;
 s.free;
end;

[Federal]

Спасибо, ребят!!!