ActiveDelphi

AndersonCamargo10

Olá,

Eu preciso carregar uma lista de e-mails, de um arquivo txt, para um memo através de um opendialog, até ai tudo bem.

O problema é que se a lista do arquivo txt estiver com virgula ou ponto e virgula eu preciso retirar eles e deixar os emails em linha no memo um embaixo do outro, exemplo

Lista esta assim:

email@dominio.com.br,email@dominio.com.br,email@dominio.com.br,
email@dominio.com.br,email@dominio.com.br,email@dominio.com.br,

Ou assim

email@dominio.com.br; email@dominio.com.br;email@dominio.com.br;
email@dominio.com.br;email@dominio.com.br;email@dominio.com.br;

Tendo espaço ou não entre eles.
Eu preciso deixar assim no memo

email@dominio.com.br
email@dominio.com.br
email@dominio.com.br
email@dominio.com.br
email@dominio.com.br
email@dominio.com.br
email@dominio.com.br
email@dominio.com.br

Somente os e-mails em linha, sem virgula ou ponto e virgula.

Se alguém puder me dar mais essa ajuda agradeço de coração, é algo bastante importante para o meu projeto que esta em andamento.

leo_cj · Enviada: Qui Mai 11, 2017 4:35 pm Assunto:

Tenta assim:

AndersonCamargo10 · Enviada: Seg Mai 15, 2017 8:19 pm Assunto:

Oba, certinho o que eu precisava, nem precisa fazer outra função para remover enter e espaços.

Será que você consegue me dar uma força também neste outro topico?

http://www.activedelphi.com.br/forum/viewtopic.php?t=93659&highlight=