Ver Mensaje Individual
  #1  
Antiguo 12-05-2017
TheRafa TheRafa is offline
Miembro
 
Registrado: abr 2005
Posts: 24
Reputación: 0
TheRafa Va por buen camino
Preparar cadena para Sql

Hola compañeros,
Llevo unos días dándole vueltas al problema por el cual la siguiente función ha dejado de funcionar al pasar de delphi 3 a delphi XE6. Es una función que prepara las cadenas para poderselas pasar antes a un TwwQuery.sql, ahora a un TFDQuery.sql, antes cualquier cadena que le pasara la devolvía entre comillas simples para que luego el qry la interpretara, pero ahora con XE6, siendo la misma función me la devuelve entre comillas dobles. Me podeis ayudar a ver donde estoy metiendo la pata o que ha cambiado que desconozco. Muchas gracias de antemano y un saludo.

Código Delphi [-]
(*                        Preparar cadena para SQL                            *)

function CadenaSQL(const Cad: String): String;
var I: Integer;
    Aux: String;
begin
  Aux := '';

  for I := 1 to Length(Cad) do
    begin
      Aux := Aux+Cad[i];
      if Cad[i] = '''' then Aux := Aux+'''';
    end;

  Aux := trim(Aux);
  if CadenaVacia(Aux)
    then Aux := 'NULL'
    else Aux := ''''+Aux+'''';

  CadenaSQL := Aux;
end;

Última edición por roman fecha: 12-05-2017 a las 18:10:04. Razón: Colocar etiquetas [delphi]..[/delphi]
Responder Con Cita