DBGRID x EDIT

[twpesquisa 1]

Bom Dia!

 

Prezados,

estou com uma situação:

 

Tenho uma tela que permite enviar e-mails, esta tela esta funcionando perfeitamente.

Então, para facilitar, coloquei um DBGRID onde relaciona todos os contatos seguido de seu e-mail.

Para evitar que o operador insira manualmente os e-mails, gostaria de saber como posso inserir apenas os selecionados no campo EDIT separado por ";" e também como inserir todos de uma única vez.

Abaixo do DBGRID, existe dois botões ( Inserir apenas selecionados e Inserir Todos ).

 

Alguém sabe como posso fazer isso ?

 

Certo da atenção , obrigado.

[Rodrigo Miss 1]

Bom para o primeiro caso, basta fazer um laço while, percorrendo os registros do DBGrid, identificando as linhas selecionadas ...

para o segundo caso, você pode usar o while tbm :

 

while not qryContatos.EOF do
begin
	Edit1.Text:= Edit1.Text + ',' + qryContatosEMAIL.Text;
	qryContatos.Next;
end;