Удаление повторяющихся слов. Delphi. Lazarus.

[0льга]

Помогите пожалуйста, никак не могу сделать.
Дан файл, содержащий текст на РУССКОМ языке . В предложениях некоторые из слов повторяются. Получить в новом файле отредактированный текст, в котором удалены повторения слов.
Буду очень благодарна!

[Poma][a]

В strutils можно найти как получать слова. А для исключения повторений можно или проверять каждый раз. Или взять хеш. Загнать его в массив и за о(1) отвечать. Или использовать set/map знаю про них ничего в Лазаре

[0льга]

Да мне код нужен , я с кодом разобраться не могу.

[Stilet]

Удалять нужно в рамках предложения или вообще в рамках всего текста?

[0льга]

В рамках всего текста.

[Stilet]

Тогда так:

var s:string;i:integer;
With TStringList.Create do begin
 LoadfromFile('файл');
 DelimitedText:=StringReplace(Text,#13#10,' '+#1+' ',[rfreplaceAll]);
 s:='';
 for i:=0 to Count-1 do
  if Strings[i]=#1 then s:=s+#13#10 else
   if (pos(Strings[i],s)=0) then s:=s+Strings[i];
 Text:=s;
 SaveToFile('Файл2');
 Free;
end;

Это потолочный вариант.

[0льга]

Спасибо, большое