如何找出一个字符串中的特定字符并替换，比如在"rrrededeee"中把所有的'd'的位置找出来并替换为别的字符？

Question

(null)

Answer 1

function replace(OldStr,NewStr,str:string):string;
var
    i:integer;
begin
    while str<>'' do
    begin
        i:=Pos(oldstr, Str);
        if i=0 then
        begin
            Result:=Result+str;
            Break;
        end;
        Result:=Result+Copy(Str,1,i-1)+NewStr;
        Str:=Copy(Str,i+Length(Oldstr),length(str));
    end;
end;

Answer 2

str:='rrrededeee';
  i:=pos('d',str);
  while i>0 do
  begin
    str:=copy(str,1,i-1)+'o'+copy(str,i+1,length(str)-i);
    i:=pos('d',str);
  end;
  edit1.text:=str;

Answer 3

用笨办法：
Z=LENGTH(TRIM(STRING))
FOR I:=1 TO Z DO
BEGIN
X:=COPY(STRING,I,1)
IF X:='D' THEN 转换
END

Answer 4

有现成函数：
StringReplace('rrrededeee', 'd', 'x', [rfReplaceAll, rfIgnoreCase]);

Answer 5

集成版
Z=LENGTH(TRIM(STRING))
FOR I:=1 TO Z DO
BEGIN
X:=COPY(STRING,I,1)
IF X:='D' THEN 转换
ENDStringReplace('rrrededeee', 'd', 'x', [rfReplaceAll, rfIgnoreCase]);