本文整理自网络,侵删。
一个替换指定串的函数,从一个字符串中找出指定子串,并替换为另一子串。
代码如下:
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源码webbrowser多次执行documentcomplete
Delphi xe实现android 添加图片资源到应用并使用它
Delphi 将strings合并成一个逗号分隔的字符串,用于sql
Delphi controlcount和componentcount的区别
Delphi 2009 之 tstringbuilder 类[4]: insert 与 remove
更多相关阅读请进入《Delphi》频道 >>