繁體中文当前位置: 首页 > 图文教程 > 开发语言 > Delphi > 自制替换指定串函数
- Delphi
- Delphi开发经验四则
- Delphi应用程序的应用（一）
- Delphi应用程序的应用（二）
- 异常处理与程序调试（一）
- 异常处理与程序调试（二）
- 异常处理与程序调试（三）
- Delphi开发数据库应用程序概述（一）
- Delphi开发数据库应用程序概述（二）
- 简单数据库应用的创建及MASTAPP介绍（一）
- 简单数据库应用的创建及MASTAPP介绍（二）
- 简单数据库应用的创建及MASTAPP介绍（三）
- 数据访问部件的应用及编程（一）
- 数据访问部件的应用及编程（二）
- 数据访问部件的应用及编程（三）
- 数据浏览部件的应用及编程（一）
- 数据浏览部件的应用及编程（二）
- SQL编程（一）
- SQL编程（二）
- Delphi客户服务器应用开发（一）
- Delphi客户服务器应用开发（二）
Delphi 中的 自制替换指定串函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 44 ::
收藏到网摘: n/a
这是本人自己制作的替换字符串中子串的函数,他可以从字符串中找出指定子串,并替换为另一子串。
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
