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 取时间戳

Delphi idftp

print documents from Delphi - print pdf, doc, xls, html, rtf, docx, txt

Delphi使用ado读写excel文件

Delphi fdquery 验证登录

Delphi 在vcl中显示一个非激活状态的窗口

Delphi 无法打不开读取文件名有逗号的文件

Delphi改变图片的像素,即大小

Delphi创建证书密钥库文件

Delphi spcomm串口控件的例程

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

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