RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

delphi Memo 过滤重复字符 IndexOf

作者:admin 来源: 日期:2018/1/2 15:13:08 人气: 标签:

procedure TForm1.btn1Click(Sender: TObject);
var
  i:integer;
  s:string;
begin
  for i:=0 to memo1.Lines.Count -1 do  //循环Memo表的所有行

  begin
    s:=memo1.Lines[i];//用S变量才暂时存储这个量,最后一步恢复用

    memo1.Lines.Delete(i);//去除比较字符串
    while memo1.Lines.IndexOf(s)>-1 do//如果大于-1就说明找到了,进行下一步的删除
    memo1.Lines.Delete(memo1.Lines.IndexOf(s)); //删除所有与s相同的重复字符串
    memo1.Lines.Insert(i,s); //恢复s1
end;

end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料