Pesquisa com registros num edit

Delphi

26/02/2008

Olá pessoal,

Como faço para que os emails resultantes de uma pesquisa (SELECT DS_EMAIL FROM CONTATOS) sejam colocados lado a lado separados por virgula num edit? Exemplo: jose@bol.com.br,sandra@gamil.com,antonio@uol.com.br


Luiz


L_carlos

L_carlos

Curtidas 0

Respostas

Djjunior

Djjunior

26/02/2008

seria isso ?
edit1.text := edit1.text + ResultadoPesquisa + ´,´

ou 
edit1.text := ´´;
while not (qry.eof) do begin
   edit1.text := edit1.text + qryEmail.AsString + ´, ´;
   qry.next;
end;
edit1.Text := copy(edit1.text, 1, length(edit1.text) -2);//retira a última virgula



GOSTEI 0
L_carlos

L_carlos

26/02/2008

Vlw DJJUNIOR. Funcionou perfeitamente. Obrigado.

Luiz


GOSTEI 0
POSTAR