memo过滤重复内容

 strNetAdress:string;
i:integer;

strNetAdress:='http://www.163.com';
i:=Memo1.Lines.IndexOf(strNetAdress);
if i=-1 then
begin
showmessage('没有重复的，可以插入')
end
else begin
showmessage('有重复记录，不可以插入');
end;

转自：http://www.websnap123.com/show-TVRBMk5UZzA=.html