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