精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Object Pascal语言>>花了一个下午,写了个查找字符串位置的函数,请大家指教

主题:花了一个下午,写了个查找字符串位置的函数,请大家指教
发信人: xiaoji@GZ()
整理人: teleme(2001-01-18 16:49:58), 站内信件

标  题: 花了一个下午,写了个查找字符串位置的函数,请大家指教
发信站: 网易虚拟社区 (Mon Jul 24 16:50:37 2000), 站内信件

刚学写程序所以写得比较垃圾,希望斧正并若有更好的实现方法或者使程序更简
洁的方法请告知,
现行谢过

function TForm1.f_findchar(MainString,SubStr:string;var position:strin
g):integer;
var
My_MainStr:String;
i,j,Sub_len:integer;
begin
result:=0;
j:=0;
Sub_len:=Length(SubStr);
My_MainStr:=MainString;
while Length(My_MainStr)<>0 do
   begin
   i:=Pos(SubStr,My_MainStr);
   j:=i+j;
   if i=0 then break
   else
      begin
      result:=1;
      position:=position + ' ' + IntToStr(j);
      if i=1 then Delete(My_MainStr,1,Sub_len)
      else Delete(My_MainStr,1,i+Sub_len);
      j:=j+Sub_len;
      end;
   end;
end;

其中变量position用于返回找到所有位置,MainString为被查找字符串,SubStr
为需要查找的
字符串。My_MainStr是本函数内部用变量,i用于每一次记录找到字符串的位置,
j用于记录上
一次找到的字符串前边有多少个字符,Sub_len用于记录需要查找的字符串的长度

--
Delphi,perl,我喜欢!
有时候,有时候,我会相信一切有尽头,相聚离开都有时候,没有什么会永垂不朽。
可是我,有时候,宁愿选择留恋不放手,等到风景都看透,也许女尔会陪我看细水长流。

※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 61.140.188.52]

[关闭][返回]