求字符串函数

Question

是否有这样一个函数，判断一个字符串里面是否包含有指定的字符串
例如： 判断'vvni eajfkan cd'里是否包含有'jfk',结果是TRUE,
而判断'ncd'的结果是FALSE。

Answer 1

if pos('jfk','vvni eajfkan cd')>0 then
showmessage('true')
else
showmessage('false');

Answer 2

pos('jfk','vvni eajfkan cd')
如果返回值为0 则不包含。

Answer 3

if Pos(substr,str)>0 then
   ShowMessage('True')
else 
   ShowMessage('False');

Answer 4

写一个函数算了
//函数说明：S源字符串，Substr：子字符串
function SubstrIn(S,Substr:string):boolean;
begin
 if Pos(substr,str)>0 then
  result:=true
 else result:=false;
end; 
用的时候就调用这个函数