怎么样把字符串中的某一字符替代成另一字符? Replace()???

Question

DELPHI的函数还不了解,不知怎么弄,谢谢

Answer 1

S := StringReplace('abcd', 'a', 'A', [rfReplaceAll]); //'Abcd'

Answer 2

用StringReplace functiontype
  TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

Answer 3

1. S := StringReplace('abcd', 'a', 'A', [rfReplaceAll]); //'Abcd'
2. 自己写：
Function NewString(OldChar: Char; NewChar: Char; OldString: String):String;
var
  i:Integer;  TempString:string;
begin
TempString:=OldString;
for i:=1 to Length(OldString) do
    begin
       if OldString[i]=OldChar then
          TempString[i]:=NewChar;          
    end;
result:=TempString;
end;

Answer 4

同意 zswang(伴水清清)(专家门诊清洁工)