好库网 好库网首页 | 我的好库
Delphi盒子

自制替换指定串函数-Delphi资料

发布者:delphibox
发布日期:2011/4/8 22:33:50   更新日期:2011/4/8 22:33:50
阅读次数:2212
评分:4.80
介绍: 自制替换指定串函数-Delphi资料
正文:

这是本人自己制作的替换字符串中子串的函数,他可以从字符串中找出指定子串,并替换为另一子串。

function replacing(S

source

target:string):string;

var site

StrLen:integer;

begin

{source在S中出现的位置}

site:=pos(source

s);

{source的长度}

StrLen:=length(source);

{删除source字符串}

delete(s

site

StrLen);

{插入target字符串到S中}

insert(target

s

site);

{返回新串}

replacing:=s;

end;


评论 [发表评论]
账号 密码 还没帐号呢,现在注册一个?

免责声明:好库网所展示的信息由买卖双方自行提供,其真实性、准确性和合法性由信息发布人负责。好库网不提供任何保证,并不承担任何法律责任。