循环每一行,拿循环的当前行和全部行比较一下if Memo1.Lines[i].IndexOf(Memo1.Lines[j])<>-1 then //有重复
f Memo1.Lines[i].IndexOf(Memo1.Lines[j])=-1 thenbeginend