delphi 替换指定字符串的函数

2022-09-22 12:30:00 网络 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 android实例-红外线操作(xe10.2+小米5)

Delphi winapi: getparent - 获取指定窗口的父窗口句柄

Delphi的tclientsocket组件和tserversocket组件(c/s)说明

Delphi获取句柄并发送消息

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