[Delphi] Ścieżka z \ do \\

Oto mój kod:
Label1.Caption := 'C:\Windows\lol.txt'; repeat  if not (Pos('\', Label1.Caption) = Pos('\\', Label1.Caption)) then    begin    n := Pos('\', Label1.Caption);    s := Label1.Caption;    Insert('\', s, n);    Label1.Caption := s;    end  else    begin    if Pos('\', Label1.Caption) > 0 then      begin      x := Pos('\', Label1.Caption);      Insert('\', s, x);      Label1.Caption := s;      end    else      begin      Break;      end    end  until Pos('\', Label1.Caption) < 1;

I tak jak wynika z debuggera C:\Windows\lol.txt przyrasta nieskończenie w przy pierwszym znaku \. Wymiękam :excl: . Chcę z tego uzyskać C:\\Windows\\lol.txt. Jak to zrobić? Z góry dzięki.
Użytkownik Mr X edytował ten post 02 grudzień 2005, 20:12

---

zobacz na to
 until Pos('\', Label1.Caption) < 1;
ten warunek bedzie zawsze -zawsze bedzie znajdowalo '\'
lepiej cos w tym stylu
for i:=length(str) downto 1 do if (str[i] = '\') and (str[i-1] <> '\') then  Insert('\',str,i);
to robione tak na oko nie wiem czy zadziala ;)

or StringReplace

A konretnie:
Label1.Caption := StringReplace(Label1.Caption, '\', '\\', [rfReplaceAll]);
:P

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl