AddSlashes i StripSlashes

Są w Delphi odpowiedniki PHPowskich funkcji AddSlashes i StripSlashes?

Jeśli nie ma to powiedzcie mi jakie znaki są niedozwolone w zapytaniach MySQL to sam sobie napiszę.

Chyba nie ma ale możesz użyć czegoś takiego:

function Ogonki(Tekst: String): String;
Var
I: Integer;
begin
for I := 1 to Length(Tekst) do
case Tekst[i] of
      Chr(161): Tekst[i] := Chr(165);
      Chr(166): Tekst[i] := Chr(140);
      Chr(172): Tekst[i] := Chr(143);
      Chr(177): Tekst[i] := Chr(185);
      Chr(182): Tekst[i] := Chr(156);
      Chr(188): Tekst[i] := Chr(159);
end;
Tekst := StringReplace(Tekst, '\"',      '"',      [RfReplaceAll]);
Tekst := StringReplace(Tekst, '\"',      Chr(132), [RfReplaceAll]);
Tekst := StringReplace(Tekst, '\"',      Chr(148), [RfReplaceAll]);
Tekst := StringReplace(Tekst, '\"',      '''',     [RfReplaceAll]);

Result := Tekst;
end;

Ja mialem problem w PostgreSQL z przekazaniem sciezki do pliku zrobilem to tak:

function AddBackSlash(sciezka: string): string;
var
  tmp : String;
  i, j: Integer;
begin
  i:=0;
  tmp := sciezka;
  for j := 0 to Length(sciezka) - 1 do
  begin
      if sciezka[j] = '\' then
      begin
        Inc(i);
        Insert('\', tmp, j+i);
      end;
  end;
  Result := tmp;
end;

Moze i jest jakas funkcja dodajaca slashe itd ale mi moja funkcja odpowiada w 100% :) moze i tobie pomoze

Trochę potestowałem i doszedłem do wniosku że u mnie wystarczy taka mała funkcja.

function AddSlashes(S: String): String;
begin
  S := StringReplace(S, '\', '\\', [RfReplaceAll]);
  S := StringReplace(S, '"', '\"', [RfReplaceAll]);

  Result := S;
end;

Dzięki.