当前位置:首页
开发技术指南» 文章正文
    引言:
 

 

 ·如何使edit重新获得焦点    »显示摘要«
    摘要: 如何使失去焦点的edit重新获得操作焦点,处于输入状态? ......
 ·哪里可以下载到 jdk 1.3 版本    »显示摘要«
    摘要: 我要装 jet ,提示要 jdk 1.3版本,请问哪里可以下载到,最好是中文的网站,谢谢! ......


字符串判断

谁能告诉我判断字符串   abcde//reqw   中的//是在引号中还是在引号外的算法  
   
 

NO.1   作者: artman

统计一下查找到//之前的字符()的个数是奇数(引号中)还是偶数(引号外).

NO.2   作者: hammer_shi

procedure   TForm1.Button1Click(Sender   TObject);  
  var  
      Location:   PChar;  
  begin  
      if   StrPos(PChar(Edit1.Text),   PChar(Edit2.Text))   <>   nil    
  then  
          ShowMessage(Substring   found)  
      else  
          ShowMessage(Substring   not   found);  
  end;

NO.3   作者: Bes96261

你可以試試用判斷     號的奇偶數的方法.

NO.4   作者: zhangpeigao

aaa:=abcde++//++reqw;  
  if   pos(+//+,aaa)>0   then//说明存在,否则在外了

NO.5   作者: eulb

你先得把问题说清楚  
  会不会出现如下情况要求判断?  
  abcdrew//fda//ab//jkl


    摘要: 我建立了一个unit文件,想将一些过程和函数加在这个文件中,可是每次编译就会出现没有定义的错误,请指教! unit prcd; interface public procedure combofresh; end; implementation uses main, data; procedure combofresh; var i:integer; str:string; begin d......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE