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 提升进程权限到sedebugprivilege

Delphi 获取本地网络连接

Delphi版 随机窗口类名

Delphi里实现多线程下载文件并且显示进度到界面

Delphi 基础计算两数之合

Delphi查找特定的exe是否在运行

Delphi getfilehashmd5

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

Delphi tms web core 复制内容到剪切板

Delphi编程之win10桌面图标设置

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

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