DELPHI把一个字符串中的某个子串，用另一个子串去替换
2014-09-17 14:06
225 查看
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;
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版）
- 一个shell中字符串替换的小技巧
- 字符串的一个操作(替换类似数组字符串中的项)
- 替换字符串在一个文件夹中所有的文件
- 将字符串中多个空格替换成一个空格
- delphi 判断一个字符串是否只由数字组成
- Delphi自带的SpinEdit控件太丑了，自己写一个替换它
- 使用正则表达式将一个字符串中连续的多个（两个或者两个以上）替换为一个空格
- 定义一个字符串“hello world”将所有的“l”替换成“s”
- Delphi - 使用字符串时,一个注意地方
- 一个shell中字符串替换的小技巧
- 完成DELPHI的不可能功能：宏替换!(如何根据字符串来创建对象)
- 正则表达式替换字符串的一个技巧 －－－ 可用于关键词变红色
- 将一个字符串映射为一个Delphi页面控件属性名
- 替换掉字符串中重复的词（只保留一个）
- 使用正则表达式和replace替换一个字符串中截取的一字符串
- 一个关于使用c语言进行对文档读取替换特定字符串
- delphi字符串替换
- 一个字符串分割成多个子字符串传入SQL
- 完成DELPHI的不可能功能：宏替换!(如何根据字符串来创建对象)