16,748
社区成员
发帖
与我相关
我的任务
分享StringReplace 的 Bug
S := 'sqr(sqt(2))';
将S中的sqr，sqt分别用 Char: #182, #183替换，看看什么结果？
我的环境：XP SP1， Delphi 7，Delphi 2005中均有此错误。
StringReplace 中的参数 RFlag: TReplaceFlags = [rfReplaceAll, rfIgnoreCase]；
这是我得到的结果：#182#183't(2))'
将S中的sqr，sqt分别用 Char: #182, #183替换，看看什么结果？
我的环境：XP SP1， Delphi 7，Delphi 2005中均有此错误。
StringReplace 中的参数 RFlag: TReplaceFlags = [rfReplaceAll, rfIgnoreCase]；
这是我得到的结果：#182#183't(2))'
...全文
请发表友善的回复…
发表回复
Sephil 2005-03-09
- 打赏
- 举报
倒...
budded 2005-03-09
- 打赏
- 举报
呵呵，原来 StringReplace 里边用Ansi……，揭帖！
merkey2002 2005-03-07
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:='sqr(sqt(2))';
s:=stringreplace(s,'sqr',#182,[rfReplaceAll, rfIgnoreCase]);
s:=stringreplace(s,'sqt',#183,[rfReplaceAll, rfIgnoreCase]);
showmessage(s);
end;
得到结果須t(2))
var
s:string;
begin
s:='sqr(sqt(2))';
s:=stringreplace(s,'sqr',#182,[rfReplaceAll, rfIgnoreCase]);
s:=stringreplace(s,'sqt',#183,[rfReplaceAll, rfIgnoreCase]);
showmessage(s);
end;
得到结果須t(2))
chinaandys 2005-03-07
- 打赏
- 举报
up
