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 closefile 关闭文件

Delphi 去除 tstringlist 重复项

Delphi图像细化处理

Delphi image1 图像旋转90

Delphi 获取自身软件的版本号

Delphi mediaplayer android 下播放 mp4 的问题

Delphi 如何按下esc键退出程序

Delphi研究之驱动开发篇（五）--使用后备列表

Delphi base32 的加密和解密

Delphi 校验手机号及身份证号

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

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