ActiveDelphi

[adalbertomesquita]

Bom dia a todos!
Tenho uma Query com um select que tem uma variáviel que é preenchida por um TEdit.
Eu gostaria de executar essa Query e pegar todo o select e jogar pra uma Memo pra que eu possa ver como essa variável está sendo preenchida após executar a Query.
Eu consigo pegar o select só que a variável não altera com o valor que é preenchido o Edit.
Ex:
O Select é o seguinte:
SELECT CODCLI, CLIENTE
FROM PCCLIENT
WHERE CODCLI IN :CODIGO

No botão tem o seguinte comando:
QRCLIENTE.CLOSE;
QRCLIENTE.Parameters.ParamByName('CODIGO').Value := EDIT1;
QRCLIENTE.OPEN;

Aí eu tenho o comando pra pegar o select:
Memo1.text := QRCLIENTE.SQL.TEXT;

No Memo1 aparece o select só que a variável continua como :CODIGO e eu preciso que apareça o que foi preenchido no EDIT1.
No Memo1 eu preciso que apareça assim:

SELECT CODCLI, CLIENTE
FROM PCCLIENT
WHERE CODCLI IN (100,200,300)
Se o usuário tiver colocado no Edit1 esses valores.

Desde já agradeço a quem puder me ajudar!

[imex]

Bom dia

Se a query está funcionando desta forma, você pode utilizar a função StringReplace para substituir o parâmetro CODIGO pelo texto do Edit para exibir a instrução no Memo. Ex:

[adalbertomesquita]

[Anderson_bnu]

Outra forma é você tirar fora a linha de parametros e passar o valor direto no select, tipo assim:

[imex]

Sou a favor do uso de parâmetros, mas não conheço uma forma de passar um array de valores que funcione, como seria necessário neste caso.
Acho que o jeito é concatenar como sugeriu o Anderson_bnu.
Com parâmetro, da forma como você tentou, imagino que os valores são tratados como se fossem um só, e que a query fique da seguinte forma:

[adalbertomesquita]