一个Pascal字符串，把其中的'\'转成'\\'？？？？？？？（高分！）

Question

rt，怎么做啊？
'c:\winnt'转成'c:\\winnt'？？？？

Answer 1

━━━━━━━━━━━━━━━━━━━━━
首部  function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; $[SysUtils.pas
功能  返回替换后的字符串
说明  rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写
参考  function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function System.Copy
例子
///////Begin StringReplace
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Values['[]'] :=
    StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []);
  Memo1.Lines.Values['[rfReplaceAll]'] :=
    StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]);
  Memo1.Lines.Values['[rfIgnoreCase]'] :=
    StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]);
  Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] :=
    StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, rfIgnoreCase]);
end;
///////End StringReplace
  

Answer 2

StringReplace('c:\winnt', '\', '\\', [rfReplaceAll])

Answer 3

StringReplace('c:\winnt','\','\\',[rfReplaceAll])
^_^
楼主我不要分……

Answer 4

StringChange(ReplicaPackPath,'\','\\');
呵呵，自己搞定了，不过仍然谢谢各位！

Answer 5

对了，楼上各位说的StringReplace方法我在istool里不支持啊，只有StringChange方法，功能一样的，不知道什么原因啊？？恳请赐教！

Answer 6

晕，以为你说的是pascal里的呢，在turbo pascal里试了半天。