自制替换指定串函数
添加时间: 2006-2-26 9:40:24 作者: Delphi教程 阅读次数:50 来源: http://www.d9soft.com
这是本人自己制作的替换字符串中子串的函数,他可以从字符串中找出指定子串,并替换为另一子串。
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;
上下文章:
上一篇文章: 不可移动的窗口示例代码 下一篇文章: Delphi中的窗体移动