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

[deepWATERblue]

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

[hongqi162]

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;

• 打赏
• 举报

回复 赞

[nxfbccu]

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'

• 打赏
• 举报

回复 赞

[dulei115]

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

• 打赏
• 举报

回复 赞

[dulei115]

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

• 打赏
• 举报

回复 赞

[deepWATERblue]

哈哈，，太好了。2点我准时结贴。

• 打赏
• 举报

回复 赞

[mingjianzeng2003]

学习

• 打赏
• 举报

回复 赞

[dulei115]

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.

• 打赏
• 举报

回复 赞

[wolf2005]

还能再详细吗？

• 打赏
• 举报

回复 赞

[deepWATERblue]

什么哦？照抄帮助说明哦？

• 打赏
• 举报

回复 赞

[deepWATERblue]

举个例子啊！！！

• 打赏
• 举报

回复 赞