替换字符串中的指定字符的函数是什么？

Question

例如：
该函数能把'\images\index\news.jpg'字符串中的'\'都替换成'/'。感谢。

Answer 1

自己写吧：
function replace_str(s1,s2,s3:string):string;
var                  //用S1替换S3中的s2
  i:integer;
  begin
    result:=s3;
    i:=pos(s2,result);
    while i<>0 do
      begin
      delete(s3,i,length(s2));
      insert(s1,s3,i);
      i:=pos(s2,s3);
      end;
    result:=s3;
  end;;

Answer 2

procedure ChangeStrth(Str1,Str2 : String ; REdit:Trichedit98);
var
  FoundAt : LongInt;
  StartPos, ToEnd: Integer;begin
  FoundAt:=0;
  StartPos := 0;  ToEnd := Length(REdit.Text) - StartPos;
  while FoundAt < ToEnd do
  begin
    FoundAt := REdit.FindText(str1,StartPos,ToEnd,[stMatchCase]);
    if FoundAt <> -1 then
    begin
      REdit.SetFocus;
      REdit.SelStart := FoundAt;
      REdit.SelLength := Length(str1) ;
      REdit.SelText:=Str2;
    end
    else
    begin
      exit;
    end;
  end;
end;
在REdit:Trichedit98里把str1替换成str2,可供参考

Answer 3

ANSIREPLACETEXT('\images\index\news.jpg'，'\',,'/')

Answer 4

感谢。
不过beata88(！！@恭喜发财！钱包拿来！！@) 更有diy精神。学习。