Obtener la consulta sql que se ejecuta

[pborges36]

Lo que sucede es que en todo el proyecto he usado el TQuery pasandole parametros. Creo que lo que voy a hacer es lo que dijo Fdelamo:

Empezado por fdelamo

...se puede hacer una funcion, que pasandole el TQuery, sustituya los ":miparametro1", ":miparametro2", ... por sus valores y te devuelva la query completa...

Aun asi si alguien sabe como hacerlo de otra forma estaria agradecido. Gracias a todos. Saludos.

[[Lepe]]

Puesto que trabajas con parámetros, puedes estar seguro que las comas simples y etc no tendrán fallos en el sql, así que pasamos del tema jejeje.

Algo rápido:

Código Delphi [-]
procedure VerSentenciaSql(dt:TQuery);
var i:Integer;
    Sql:string;
    ReplaceTo:string;
begin
  sql := dt.SQL.Text;
  for i := 0 to dt.params.count - 1 do
  with dt.Params[i] do
  begin
    case datatype  of
      ftDate : ReplaceTo := FormatDateTime('dd/mm/yyyy',AsDAte);
      ftDatetime: ReplaceTo := FormatDateTime('dd/mm/yyyy hh:nn:ss', AsDAtetime);
      ftTime : ReplaceTo := FormatDateTime('hh:nn:ss', Astime);
    else
      ReplaceTo := AsString;
    end;
    sql := ReplaceText(sql, ':'+Name,  ReplaceTo);

  end;
  ShowMessage(sql);
end;

[pborges36]

Muchas gracias Lepe. Es mas o menos asi como encaré la funcion. El unico problema que se me presentó hasta ahora es con algunos nombres de parametros, como por ejemplo:

:nombre, :nombre1, :nombre2

En algunos casos a los parametros :nombre1 y :nombre2 toman el valor del parametro :nombre seguido del numero, 1 o 2. Pero solo es cuention de tener cuidado en los nombres de los parametros.

Tenia la ilusion de que el TQuery me devuelva la consulta completa, pero veo que no es asi.
Muchas gracias.