Удалить дубликаты слов из memo

Есть текстовый файл вида:

xxxxxxxxxxxx yyyyyyyyyy zzzzzzzzzzz y1y1y1y1y z1z1z1z1z1 zzzzzzzzzzz z1z1z1z1z1 yyyyyyyyyy

Данный текстовый файл загружается в memo1 по нажатию кнопки. Удалить дубликаты слов и вывести слова в 1 экземпляре в memo2.

code: #delphi
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
begin
 Memo1.Lines.Loadfromfile('Text1.txt'); //записываем текст в Memo1
 i := 0;
 while i<=Memo1.Lines.Count-1 do
    begin
      k:=0;
      for j:=0 to Memo2.Lines.Count-1 do  
        begin
          if Memo2.Lines.Strings[j] = Memo1.Lines.Strings[i] //проверяем, есть ли очередная строка в Memo2
          then k:=k+1; //если есть, считаем
        end;
       if k=0 then Memo2.Lines.Add(Memo1.Lines.Strings[i]);//если повторений ноль, записываем в Memo2
      i := i+1; //переходим к следующей строке
    end;
end;
end.

автор: Puporev

Поделиться:

Похожие статьи: