Delphi从Memo去重数据

 

 

 var
 i: Integer;
 s: string;
 begin
 for I := 0 to mmo1.Lines.Count - 1 do
 begin
 s := mmo1.Lines[i];
 mmo1.Lines.Delete(i);
 while mmo1.Lines.IndexOf(s) > -1 do
 mmo1.Lines.Delete(mmo1.Lines.IndexOf(s));
 mmo1.Lines.Insert(i, s);
 end;
 end;

结果：