怎样实现字符替换？解决后马上给分！

Question

1，一个字符串var MyStr:string;
2,在字符串MyStr中查找一个字符或者字符串
3，将查找到的字符串替换为别的字符串
请问怎么实现？
有没有函数？
解决后马上给分！

Answer 1

uses SysUtils;var
    s : string;
begin
    s := StringReplace(MyStr, 'a', 'A', [rfReplaceAll]);//把a用A替换
end;

Answer 2

function ReplaceCharFast (const s: string; 
  ch1: char; ch2: char): string; 
var i: integer; 
begin 
  Result := s; 
  for i := 1 to length (Result) do 
    if Result [i] = ch1 then 
      Result [i] := ch2; 
end; 
s是要实现替换的字符串，ch1是要查找的字符,ch2是要替换的字符

Answer 3

foilsman(刀仔) ( ) 正确

Answer 4

MyStr（pos('字符'，MyStr)）＝要替换的字符

Answer 5

更正：
MyStr[pos('字符'，MyStr)]＝要替换的字符