请问字符串中查找子字符串函数怎么写？

问题点数：5、回复次数：3Top

1 楼tikkypeng（千两狂死郎之天衣有缝）回复于 2001-11-24 16:25:55 得分 3

POS   Function  
   
  var   S:   string;  
   
  begin  
      S   :=   '       123.5';  
      {   Convert   spaces   to   zeroes   }  
      while   Pos('   ',   S)   >   0   do  
          S[Pos('   ',   S)]   :=   '0';  
  end;Top

2 楼kevin_gao（困了！累了！睡觉了！）回复于 2001-11-24 16:26:27 得分 1

posTop

3 楼tanxj（明剑）回复于 2001-11-24 16:33:45 得分 1

var   s:string;  
    int:integer;  
  begin  
      s:='1234567';  
      int:=pos('456',s);  
      if   int>0   then  
      showmessage('找到了,在字符串'+inttostr(int))+'的位置');  
  end;Top

相关问题

• 字符串
• pos
• begin

• 帖主：benben_hen
• tikkypeng
• kevin_gao
• tanxj

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