循环每一行,拿循环的当前行和全部行比较一下if Memo1.Lines[i].IndexOf(Memo1.Lines[j])<>-1 then //有重复
转自:http://zhidao.baidu.com/question/201975349.html