ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

localizar parte texto

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
daqdel
Aprendiz
Aprendiz


Registrado: Terça-Feira, 19 de Mai de 2009
Mensagens: 277

MensagemEnviada: Qui Out 11, 2018 12:03 am    Assunto: localizar parte texto Responder com Citação

boa noite
Como faço para localizar e alterar texto conforme busca?

No Edit1.text tenho o seguinte texto:
CO-FR-TO-IN-FIM
No Edit2, vou pesquisar, onde quando encontrado, gostaria de altera-lo.

Exemplo: Colocando o Texto "TO" no edit2, gostaria que localiza-se no edit1 e modifica-se o valor para:
CO-FR-[TO]-IN-FIM
Quando encontrado.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Qui Out 11, 2018 9:21 am    Assunto: Responder com Citação

Bom dia,

Experimente utilizar a função StringReplace mais ou menos conforme segue abaixo:

Código:
Edit3.Text := StringReplace(Edit1.Text, Edit2.Text, '[' + Edit2.Text + ']', [rfReplaceAll]);


Espero que ajude
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB