pos的简单问题(50分)

用到memo1，edit1,edit2,edit3,edit4,edit5 ,button1<br><br>点button1后判断edit1,edit2,edit3,edit4,edit5里哪一个里面的数据有出现在memo1里<br>,有的话就比如showmessage(edit4.text+'数据有发现)，都没有的话就showmessage('没<br><br>有发现任何数据')

var<br>&nbsp; sMsg: string;<br>begin<br>&nbsp; sMsg := '';<br>&nbsp; if pos(edit1.txt, memo1.lines.text) &gt; 0 then<br>&nbsp; &nbsp; sMsg := concat(sMsg, edit1.text, '数据有发现', #13#10);<br>&nbsp; if pos(edit2.txt, memo1.lines.text) &gt; 0 then<br>&nbsp; &nbsp; sMsg := concat(sMsg, edit2.text, '数据有发现', #13#10);<br>&nbsp; if pos(edit3.txt, memo1.lines.text) &gt; 0 then<br>&nbsp; &nbsp; sMsg := concat(sMsg, edit3.text, '数据有发现', #13#10);<br>&nbsp; if pos(edit4.txt, memo1.lines.text) &gt; 0 then<br>&nbsp; &nbsp; sMsg := concat(sMsg, edit4.text, '数据有发现', #13#10);<br><br>&nbsp; if sMsg &lt;&gt; '' then <br>&nbsp; &nbsp; Showmessage(Trim(sMsg))<br>&nbsp; else<br>&nbsp; &nbsp; showmessage('没有发现任何数据');<br>end;

用richedit代替memo吧...richredit有findtext功能的...如果文本太大,不建議用pos方法...