Mostrar consulta SQL con parámetros

[engranaje]

Como ya te han recomendado es posible que la mejor opción para tí sea utilizar el propio log de Mysql que como leo estas investigando, o hacerte una función que recorra los parámetros de la query y los sustituya por el valor.


De todas formas basándome en tu ejemplo, algo rápido para salir del paso y desde luego nada reutilizable puede ser algo de este estilo:

Código Delphi [-]
Query.Close;
Query.Clear;
strInsert := ' INSERT INTO ventas (folio, fecha, clave, producto) ';
strValuesAUtilizar := ' VALUES (:folio, :fecha, :clave, roducto) ';

Query,SQL.Add(strInsert);
Query.SQL.Add(strValuesAUtilizar);
Query.ParamByName('folio').AsInteger      := 1; 
Query.ParamByName('fecha').AsString      := '2021-08-31';
Query.ParamByName('clave').AsString      := 'AB001';
Query.ParamByName('producto').AsString := 'Azúcar';
Query.Prepared := true;
                                                          
strValuesParaLog := format(' VALUES (%d, %s, %s, %s) ',  [Query.params[0].asInteger,
                                                          quotedstr(Query.params[1].asstring),
                                                          quotedstr(Query.params[2].asstring),
                                                          quotedstr(Query.params[3].asstring)]);                                                          
Query.ExecSQL;                                                            
showmessage(strInsert + #13 +strValuesParaLog);

[[kuan-yiu]]

Yo tengo esta (no es mía sino de un compañero):

Código Delphi [-]
   if query.sql.Text <> '' then
   begin
      consulta := stringReplace(query.sql.Text, #13#10, ' ', [rfreplaceall]);

      for i:= 0 to query.ParamCount-1 do
      begin
         try
            if query.Params[i].DataType = ftString then
                  consulta := stringReplace(sSql, ':'+ query.Params[i].Name, QuotedStr(query.Params[i].AsString), [rfreplaceall, rfIgnoreCase])
            else if query.Params[i].DataType = ftDateTime then
                  consulta := stringReplace(sSql, ':'+ query.Params[i].Name, QuotedStr(FormatDateTime('yyyy/mm/dd', query.Params[i].AsDateTime)), [rfreplaceall, rfIgnoreCase])
            else  consulta := stringReplace(sSql, ':'+ query.Params[i].Name, query.Params[i].AsString, [rfreplaceall, rfIgnoreCase]);
         except
            // Lo que quieras hacer si falla
         end;
      end;

      // Devuelves 'consulta' o lo grabas o lo que necesites
   end;