Question

delphi 如何判断一段字符串是否有规定的字符

delphi 如何判断一段字符串是否有规定的字符
比如 ：“ 我是中国人，何必学外文，考试打0分，代表我的爱国心！”
判断这个字符串里面 是否含有“中国”或者“爱国”两字，如果有 其中的一个 则
弹出 ShowMessage 显示 文字里有这个词语！

Answer 1

设你的字符串在Edit1.Text中。判断语句如下：
if (Pos('中国',Edit1.Text)>0) or (Pos('爱国',Edit1.Text)>0) then
ShowMessage('文字里有这个词语！');

Answer 2

if Pos('中国','我是中国人，何必学外文，考试打0分，代表我的爱国心！')>0 then
showmessage('');