怎么判断一个字符串是不是另一个字符串的字串？

如connect在sdfsconnectsdf中 问题点数：20、回复次数：7Top

1 楼hammer_shi（dmresearch）回复于 2002-06-20 12:10:29 得分 4

procedure   TForm1.Button1Click(Sender   TObject);  
  var  
      Location:   PChar;  
  begin  
      if   StrPos(PChar(sdfsconnectsdf),   PChar(connect))   <>   nil   then  
          ShowMessage('Substring   found')  
      else  
          ShowMessage('Substring   not   found');  
  end;  
   
   
   
   
   
   
   
   
  /*************************************/  
  /*1、MY   TOOL:*************************/  
  /*2、Delphi,Oracle,Sybase,C++/C*******/  
  /*3、PROJECT:*************************/  
  /*3、Boss*****************************/  
  /*4、为了五星的目标希望你早点结贴*********/  
  /*5、在线技术讨论(QQ)：68123095*********/  
  /*************************************/  
  Top

2 楼linx88（haozi）回复于 2002-06-20 12:13:58 得分 4

pos('connect','sdfsconnectsdf')；Top

3 楼shindynj（一路奔走）回复于 2002-06-20 12:14:02 得分 2

 
  function   StrPos(const   Str1,   Str2:   PChar):   PChar;  
   
  Returns   a   pointer   to   the   first   occurrence   of   STR2   in   STR1.  
   
  Description:  
  StrPos   returns   a   pointer   to   the   first   occurrence   of   Str2   in   Str1.   If   Str2   does   not   occur   in   Str1,   StrPos   returns   nil.  
   
  Note: If   the   source   string   contains   international   characters,   use   AnsiStrPos   instead.  
   
  楼上帖的是DELPHI的自带例程。Top

4 楼dreamfan（改行不做程序员，回家种地。）回复于 2002-06-20 12:20:11 得分 3

pos('connect','sdfsconnectsdf')；Top

5 楼chtlovezj（用一流机器的九流程序员）回复于 2002-06-20 12:24:57 得分 2

一楼方法可实现  
  Top

6 楼superljj（）回复于 2002-06-20 12:28:12 得分 3

pos(substr,str);Top

7 楼jabmoon（刺月）回复于 2002-06-20 12:43:49 得分 2

直接用POS函数就可以搞定Top

相关问题

• sdfsconnectsdf
• strpos
• pchar
• str
• connect

• 帖主：icecsdn
• hammer_shi
• linx88
• shindynj
• dreamfan
• chtlovezj
• superljj
• jabmoon

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载