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 idhttp访问datasnap有密码验证的中间件

Delphi sql 语句(常见) 新建,删除,修改表结构

Delphi通过代码实现模拟按键的函数

Delphi 检测服务器地址是否有效

Delphi firedac 连接sql server一些要注意的地方

Delphi 与 c/c++ 数据类型对照表

delph hash类

Delphi 压缩与修复access数据库

Delphi更改android亮度

Delphi 调用shellexecute打开txt文本

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

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