Recuperar Sql

[jzk]

Hola a tod@s,

Estoy intentando recuperar la sql de un objeto Query, pero me estoy encontrando más problemas de los esperados.
Me explico, si lo hago de la siguiente manera:

- Query1.SQL.DelimitedText ---> Obtengo = 'select * from tabla'
Obtengo la sql entrecomillada y me gustaria obtenerla sin las comillas simples.

- Query1.Sql.Text -----> Obtengo = select * from tabla1'#$D#$A
Obtengo una serie de caracteres que joroban el asunto.

Existe alguna otra manera de obtener la consulta sin que esta venga entrecomillada.

Un saludo.

[Neftali [Germán.Estévez]]

Yo lo que hago es obtenerla como .Text y luego eliminar los "caracteres raros" con un AnsiReplaceStr y sustituyo #10 y #13 (que son los caracteres raros correspondientes al "Fin fde Linea" y "Salto de carro") por espacios.


Str := SQL.Text;
Str := AnsiReplaceStr(Str, #10, ' ');
Str := AnsiReplaceStr(Str, #13, ' ');

[jzk]

A las mil maravillas, muchiiiiiisimas gracias.

Te debo una....