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;
结果：
 

相关阅读 >>

Delphi memo 自动滚动到最底下

Delphi重写一个字符串分割函数

Delphi中如何设置更改编译生成的exe文件的保存位置

Delphi中复制线程

Delphi 将程序加裁到启动项

Delphi shgetfileinfo函数

Delphi 获取url特殊路径

Delphi code无法回车换行

Delphi 获取所有磁盘盘符列表

Delphi 实现软件版验证码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi从Memo去重数据