ActiveDelphi

[paulinho_coelho]

Pessoal, Bom Dia!

Estou com uns probleminhas com a alteração de texto em um RichEdit.
Onde trabalho possuimos relatório Dinâmicos, onde seus valores são substituídos através de TAGS informadas.
EX: [NOME] = substitui por PAULO HENRIQUE.

Pra fazer essas alterações eu utilizo as propriedades abaixo:
Rich.SelStart := Rich.FindText(strSrchAux2, 0, Rich.GetTextLen,[])-1;
Rich.SelLength := Length(strSrchAux2);
Rich.SetSelText(StrRepl);

O problema acontece quando alguma TAG possui um caracter especial, neste formato:
[NOME'#$D#$A']

Quando eu Passo o valor do tamanho do texto para o SelLength, a propriedade nunca absorve o valor correto, ela fica sempre em 1;
O que está errado? É o findtext que não ta encontrando ou a propriedade do SelLength que está com problemas?

[weberdamasio]

Já tentou usar StringReplace?

[paulinho_coelho]

Já sim Amigo. Ele perde a formatação do texto

[weberdamasio]

Se você precisa substituir apenas uma vez, quando abre uma tela por exemplo.
Dá para carregar para uma TStringList, fazer a substituição nela e depois passar a TStringList para o TRichEdit.