Удаление дубликатов

[linda88]

Спасибо котятки.
вот что вышло:

unit DELETE;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Layouts, FMX.Memo, FMX.Controls.Presentation, FMX.ScrollBox;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;
    Memo3: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Memo1MouseLeave(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  I2,I:INTEGER;
 s:STRING;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin

 for i:=1 to length(s) do
case s[i] of
' ','а'..'я','А'..'Я':MEMO1.Text:=MEMO1.Text+s[i];
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
I2 := 0;
for I := 0 to memo2.Lines.Count -1 do
  if  length(Trim(memo2.Lines[i]))>0 then
     if memo3.Lines.IndexOf(memo2.Lines[i])<0 then
     begin
      memo3.Lines.Append(memo2.Lines[i]);
     if I =memo2.Lines.Count -1 then
     memo2.Lines.Clear;

     end;
     for I := 0 to memo3.Lines.Count -1 do
     begin

     Inc(I2);
      memo2.Lines.Add(inttostr(i2)+'. '+memo3.Lines[i]);
      if I = memo3.Lines.Count -1 then
     memo3.Lines.Clear;

     end;

 end;

procedure TForm1.Memo1MouseLeave(Sender: TObject);
begin
 S:= MEMO1.Text;
   MEMO1.Text:='';
end;

end.

[Аватар]

Мемо можно почистить и вне цикла )