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

            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;

 

评论 (0) All

登陆 还没注册？