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; 

相关阅读 >>

Delphi 从网页里下载图片的程序

Delphi xe5开发android程序调用电话相关功能(短信息和电话)

Delphi2010 编译变量$region用法

Delphi中用拼音首字符序列来实现检索功能

Delphi savelog 日志

Delphi getmem(mystring,1024);//开辟1024个字节freemem(mystring,1024);//释放

Delphi [android]获取屏幕的物理分辨率

Delphi把一个字符串中的某个子串，用另一个子串去替换

Delphi图像数据压缩解压缩实例

Delphi 保存导出或加载资源文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 替换指定字符串的函数