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
[-]
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;