如何在使用 Delphi 的路径中用双反斜杠替换单反斜杠？

Question

Here are my codes:

var
  Form1: TForm1;

  ///--- Değişkenler ---///
  //-- String --//
  str_ÖgeninKonumu: String;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  if(ParamCount <> 1) then begin
    ExitProcess(0);
  end else begin
    str_ÖgeninKonumu := ParamStr(1);

    StringReplace(str_ÖgeninKonumu, '\\', '\\\\', [rfReplaceAll]);

    str_ÖgeninKonumu := '"' + str_ÖgeninKonumu + '"';

    Clipboard.AsText := str_ÖgeninKonumu;

    ExitProcess(0);
  end;
end;

When I right click any file/folder and choose "Send to" option, this application gets the path of that file/folder as first parameter and copies to the clipboard.

But I want to replace \ (single backslash) with \\ (double backslashes) in the path.

How can I achieve this?

Answer 1

Ok, since StringReplace is a function, here are corrected codes (By the way, Delphi does not work like C languages. Which means, backslash should not be escaped in Delphi.):

var
  Form1: TForm1;

  ///--- Değişkenler ---///
  //-- String --//
  str_ÖgeninKonumu: String;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  if(ParamCount <> 1) then begin
    ExitProcess(0);
  end else begin
    str_ÖgeninKonumu := ParamStr(1);

    str_ÖgeninKonumu := StringReplace(str_ÖgeninKonumu, '\', '\\', [rfReplaceAll]);

    str_ÖgeninKonumu := '"' + str_ÖgeninKonumu + '"';

    Clipboard.AsText := str_ÖgeninKonumu;

    ExitProcess(0);
  end;
end;