发信人: 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]
|
|