Удаление одинаковых слов в Memo.

[sxcine]

Добрый день..
В Memo1 находится некий текст, из которого нужно удалить только одинаковые слова.
Как такое сделать ?
Я могу сделать тока удаление строк, если совпадают две строки последние.. Ну вот что я написал :

var s,str:string;
i:integer;
begin
for i:=0 to memo1.Lines.Count-1 do begin
str:=memo1.Lines.Strings[i];
s:=memo1.Lines.Strings[i+1];
if (str=s) then begin
memo1.Lines.Delete(i);
end;
end;

[Stilet]

Я бы сначала разделил на список слов

var s:TStringList;
...
 s.DelimitedText:=Memo.Lines.Text;
...

А потом в цикле

i:=0;
while i<s.Count do begin
 Выяснял есть ли копия слова s[i] в списке s
inc(i);
end;

Например еще одним циклом от i до конце списка пока не найдено слово s[i], и если найдено Метод delete

[sxcine]

а можно в цикле сразу ?
я знаю, что нужен цикл в цикле, только
голова не соображает как именно сделать..

[Serge_Bliznykov]

а можно в цикле сразу ?

можно... а зачем?!
во-первых, это намного сложнее.
во-вторых, надо писать функцию выделения слова, и в цикле "дёргать" её.
А без выделения из текста слов никуда не денешься:
у Вас же задание "... удалить повторяющиеся слова"

[sxcine]

ошибся - удалить одинаковые строки..
зачем ? я просто не очень разбираюсь в Стринглисте..

[Serge_Bliznykov]

попробуйте вот такой код:

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
  i := Memo1.Lines.Count-1;
  while i>=0 do begin
     j := Memo1.Lines.IndexOf(Memo1.Lines[i]);
     while (j>=0) and (j<i) and (i>=0) do begin
       Dec(i);
       Memo1.Lines.Delete(j);
       if i>=0 then
         j := Memo1.Lines.IndexOf(Memo1.Lines[i]);
     end;
     Dec(i);
  end;
end;

[Sibedir]

Незнаю. Я в таких случаях создаю новый пустой список и добавляю туда строки из старого. Если строка уже есть, то не добавляю. А потом подменяю список.

[sxcine]

спасибо Сергею!
код работает!
тему можно закрывать