koji je escape karakter u Delphi-ju?

[ vilyu @ 09.05.2002. 13:01 ] @

Programom generisem neke SQL upite za InterBase server. Kod kuce mi je sve radilo sa obicnom znakom navoda ("), ali na masinama na kojima ce program kasnije raditi, upiti ne funkcionisu jer server zahteva da se u upitu koristi apostrof ('). Kako to da izvedem u programu, a da ne prekinem string? Jel postoji neki escape karakter u Delphi-ju? Ili moze nekako drugacije da se podesi SQL server? Hvala unapred.

[ Riste Pejov @ 09.05.2002. 14:57 ] @

Delphi nema veze sa SQL escape karakterima,
to je sve stvar u SQL jeziku.

ja to resavam jednom malom funkcijom koja radi savrseno sa MySQL serverom,
ali sigurno ce da radi i sa InterBase.

Code:

function EscapeSQLChars(str:string):string;
        var
         k:word;
         escaped:string;
        begin
        escaped:=str;
        k:=1;
        while k<=length(escaped) do
         begin
                if escaped[k]='"' then
                  begin
                  insert('\',escaped,k);
                  inc(k);
                  end;
                  inc(k);
         end;

        k:=1;
        while k<=length(escaped) do
         begin
                if escaped[k]='''' then
                  begin
                  insert('\',escaped,k);
                  inc(k);
                  end;
                  inc(k);
         end;

        k:=1;
        while k<=length(escaped) do
         begin
                if escaped[k]='\' then
                  begin
                  insert('\',escaped,k);
                  inc(k);
                  end;
                  inc(k);
         end;

        EscapeSQLChars:=escaped;
        end;