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

本文整理自网络，侵删。

 
DELPHI把一个字符串中的某个子串，用另一个子串去替换
function StrReplace(s,oldstr,newstr:string):string; //字符串替换
var
SelPos,SelLen: Integer;
begin
SelPos := Pos(oldstr, s);
while SelPos > 0 do
begin
SelLen := Length(oldstr);
delete(s,SelPos,SelLen);
insert(newstr,s,SelPos);
SelPos := Pos(oldstr, s);
end;
Result:=s;
end;

 

相关阅读 >>

Delphi xe android下让tmemo不自动弹出键盘

Delphi之完美splash方案

Delphi form生成时的事件次序

Delphi 实现软件版验证码

Delphi 创建一个进程并读取其控制台输出内容

Delphi启动屏幕保护

Delphi 非常简单的字符串加密解密函数，支持中文

Delphi 取得当前进程占用内存及线程数

Delphi判断驱动器类型

Delphi 数据异或校验

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

转载请注明出处：木庄网络博客 » DELPHI把一个字符串中的某个子串，用另一个子串去替换