一个替换指定串的函数,从一个字符串中找出指定子串,并替换为另一子串。 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;
[ 查看全文 ]