Error al cargar sql

[bbjb]

EStoy intentado añadir una "macro-select" en un programilla de tal dimensión que he optado por guardarla en un archivo llamada sql.txt y cargarla en el objeto TQuery a través de la sentencia.

Código Delphi [-]
      Qlistado.SQL.LoadFromFile('C:\sql.txt');

Al intentar obtener el valor de la sentencia sql que va a ejecutar obtengo unos caracteres rarísimos. Os muestro un extracto de la sentencia

'Select Año, Serie,numero,Agente'#$D#$A,(Select age_nombre From ser_agente Where age_codigo = prc_agente(de.cab_receptor,today,1)) Nombre_Age'#$D#$A',(Select Min(pob_zona) From com_poblacion po Where pob_cpostal =

Por supuesto, ni que decir tiene que el petardazo que me da es pequeño y claro no puedo continuar.

¿Sabeís a que se puede deber?

[delphi.com.ar]

Empezado por bbjb

...Al intentar obtener el valor de la sentencia sql que va a ejecutar obtengo unos caracteres rarísimos...

Esos caracteres no son tan raros, la traducción de lo que ves es:

• El símbolo # seguido de un entero sin signo entre 0 y 255, expresado en forma decimal o hexadecimal, denotan el correspondiente caracter ASCII
• El prefijo $ indica que el valor numérico que lo presigue es un número hexadecimal

Por consiguiente, podrías decir que
#$D#$A = #13#10 = chr(13) + chr(10) = Carriage Return + Line Feed

Ejemplo:

Código Delphi [-]
Memo1.Text := 'Hola'#$D#$A'Mundo'#13#10 + '!' + chr(13) + chr(10) + '!';

Saludos!

[bbjb]

Ahhhh!!!!, claro siendo así lo que tendría que hacer es transformar esos caracteres.

Voy a intentarlo.
De nuevo, muchas gracias.

[delphi.com.ar]

Empezado por bbjb

Ahhhh!!!!, claro siendo así lo que tendría que hacer es transformar esos caracteres.

No tenes ningun problema, el motor no le va a molestar que el sql tenga mas de un CR+LF...

[bbjb]

Ok, gracias por tu ayuda.