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 将svg加载到timage控件

Delphi base64加解密

Delphi fmx 把内容复制到粘贴板上支持跨平台

Delphi deletefile 删除文件

dll与exe之间的恩爱情仇

Delphi读取android短信信息

android实例-拍摄和分享照片、分享文本(xe8+小米2)

Delphi自动适应屏幕分辨率的属性

Delphi 使用shgetfileinfo函数获取任何文件大图标

Delphi 公历到农历的转换法

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

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