本文整理自网络,侵删。
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 regularexpressions 正则表达式如何忽略大小写
Delphi 每年、月、周、日的开始与结束的时间startofayear … startoftheyear … endofayear … endoftheyear
Delphi tgifimage:timage显示gif动画
Delphi xe8在firemonkey tlistbox中显示图像
更多相关阅读请进入《Delphi》频道 >>