有谁能举例说明一下StringReplace()函数的用法吗？谢谢！在线等，下午2:00结贴。

Question

有谁能举例说明一下StringReplace()函数的用法吗？谢谢！越详细越好！

Answer 1

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);rfReplaceAll Replace all occurrences. If this flag is not present, only the first occurrence of the target substring is replaced.
rfIgnoreCase Match occurrences of the substring case-insensitively. If this flag is not present, only case-sensitive matches are considered.

Answer 2

procedure TfrmMain.RemoveSpace(Str: String):string;
begin
  str := StringReplace(str, ' ', '', [rfReplaceAll]); //去空格
  str := StringReplace(str, #7, '', [rfReplaceAll]);
  str := StringReplace(str, #13#10, '', [rfReplaceAll]);
  Result:=str;
end;

Answer 3

var
  str:string;
begin
  str:='we have we have we have';
  str:=StringReplace(str, 'we', 'rr',[rfIgnoreCase]);//将第一个'we'替换为'rr'
  str:=StringReplace(str, 'we', 'rr',[rfReplaceAll]);//将所有的'we'替换为'rr'

Answer 4

Flags: TReplaceFlags
[] 替换第一个，区分大小写
[rfReplaceAll]替换全部，区分大小写
[rfIgnoreCase]替换第一个，不区分大小写
[rfReplaceAll,rfIgnoreCase]替换全部，不区分大小写

Answer 5

StringReplace('AaaaAaa','a','b',[]) = 'AbaaAaa'
StringReplace('AaaaAaa','a','b',[rfReplaceAll]) = 'AbbbAbb'
StringReplace('AaaaAaa','a','b',[rfIgnoreCase]) = 'baaaAaa'
StringReplace('AaaaAaa','a','b',[rfReplaceAll,rfIgnoreCase]) = 'bbbbbbb'