 |
ActiveDelphi .: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
andersoncamargo1 Novato

Registrado: Sexta-Feira, 15 de Dezembro de 2017 Mensagens: 10
|
Enviada: Ter Dez 10, 2019 9:46 pm Assunto: Ajuda para concatenar linhas de um memo |
|
|
Preciso concatenar as linhas de um memo e jogar em um outro memo ou edit por exemplo, onde fique tudo na mesma linha.
Exemplo, no memo vai estar assim
Primeiro texto
Segundo Texto
Terceiro Texto
Quarto Texto.
...
Preciso pegar essas linhas e juntar todas jogando em uma unica linha de outro memo ou em um edit, ficando assim
Primeiro Texto Segundo Texto Terceiro Texto Quarto Texto
Não importa o tamanho do texto que tenha no memo, tudo tem que ser colocado, concatenado em uma linha só.
Alguém tem ideia de como posso fazer isso? |
|
| Voltar ao Topo |
|
 |
imex Moderador

Registrado: Sexta-Feira, 7 de Janeiro de 2011 Mensagens: 11666
|
Enviada: Qua Dez 11, 2019 9:27 am Assunto: |
|
|
Bom dia,
Experimente fazer uns testes mais ou menos dessa forma:
| Código: | Memo1.Lines.Delimiter := ' ';
Memo1.Lines.QuoteChar := '|';
Memo2.Lines.Text := StringReplace(Memo1.Lines.DelimitedText, '|', '', [rfReplaceAll]); |
Espero que ajude |
|
| Voltar ao Topo |
|
 |
|
|
Enviar Mensagens Novas: Proibido. Responder Tópicos Proibido Editar Mensagens: Proibido. Excluir Mensagens: Proibido. Votar em Enquetes: Proibido.
|
|