muestra los valores de los parametrosel insert de un sql
 

tengo un query donde aplico un

Código Delphi [-]
insert into cliente value  :a,:b,:c

Código Delphi [-]
showmensage(query.sql.text);

me muestra, pero no me muestra los valores de los parametros que he mandado,.
como muestro esto

necesito obtener el sql q se ejecuta debido aque tengo un insert muy grande(60 campos) con diferentes tipos de datos. y ya he validado varios.

Hola.

Código Delphi [-]
var
  i: Integer;
begin
  for i:= 0 to Query.ParamCount -1 do
    ListBox1.Items.Add(Query.Params[i].Value);
  ...
end;

Saludos.

y si kiero ver todo el sql ejecutado?

Hola.

Si lo que buscas es reemplazar en la cadena original de la consulta, los nombres de los parámetros por el valor que les asignaste a fin de mostrarla,
yo haría:

Código Delphi [-]
...
var
  s: string;
  c,i: Integer;
begin
  ...
  s:= IBQuery.Text;
  c:= 0;
  for i:= 1 to Length(s) do
    if s[i] = '?' then
    begin
      Delete(s, i, 1);
      Insert(IBQuery.Params[c].AsString, s, i);
      Inc(c);
    end;
  ShowMessage(s);
end;

Saludos.

no se si eso me sirvira pero yo quiero es esto.

Código Delphi [-]
query.sql.text:='insert into clientes value(:a,:b,:c,:d....)'

me mostraria

Código Delphi [-]
insert into clientes value('001','abraham',18,'lorica'...

mmmm
eso no se ve en el depurador?

tu ubicas encima de la variable que quieras presionas alt+f5 y aparece la variable y su valor

Bueno habría bastado con probarlo... :)

Simplifiqué un poco el código anterior y acabo de hacer esta prueba:

Código Delphi [-]
...
var
  s: string;
  c,i: Integer;
begin
  IBQuery1.SQL.Text:= 'insert into clientes values(:a,:b,:c,:d)';
  IBQuery1.ParamByName('a').AsString:= QuotedStr('001');
  IBQuery1.ParamByName('b').AsString:= QuotedStr('abraham');
  IBQuery1.ParamByName('c').AsString:= QuotedStr('18');
  IBQuery1.ParamByName('d').AsString:= QuotedStr('lorica');
  s:= '';
  c:= 0;
  for i:= 1 to Length(IBQuery1.Text) do
  begin
    if IBQuery1.Text[i] = '?' then
    begin
      s:= s + IBQuery1.Params[c].AsString;
      Inc(c);
    end
    else
      s:= s + IBQuery1.Text[i];
  end;
  ShowMessage(s);
end;

y obtengo este resultado en pantalla:
Que, si no entiendo mal, es lo que estás solicitando.


Saludos.