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;

结果:
在这里插入图片描述

已标记关键词 清除标记
相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页