一个简单的问题、、、

Question

自己编不难吧。
思路：
   speStr:=''kk'';
   strExists:=False;
   len:=StrLen(PChar(myString));
   if len>1 then
   for i:=1 to len-1 do
    if (speStr[1]=myString[i]) and (speStr[2]=myString[i+1])
      then begin
        strExists:=True;
        break;
      end;

Answer 1

我的妈也，新版的论坛把文字的缩进都取消了！！！
还以为我写程序的风格不好再写一次：
自己编不难吧。
思路：
1  speStr:=''''''''kk'''''''';
2  strExists:=False;
3  len:=StrLen(PChar(myString));
4  if len>1 then
5    for i:=1 to len-1 do
6      if (speStr[1]=myString[i]) and (speStr[2]=myString[i+1])
7       then begin
8        strExists:=True;
9        break;
10      end;

Answer 2

if pos(''kk'',mynameiskk)>0 then 
  showmessage(''存在'')
else
  showmessage(''不存在'')

Answer 3

Pos() <>0 // 不存在