Reemplazar letras en TRichEdit
 

Hola a Todos:

Tengo una duda sobre TRichEdit. A ver si alguien me puede hechar una mano.

Tengo un RichEdit y un boton, quiero que al pulsar el boton:
Todas las letras "A" se cambien (por ejemplo) por "086".
Todas las "B" por "023".
Todas las "C" por "009".
Y asi hasta el alfabeto completo.

He intentado hacerlo con un TReplaceDialog, pero no me aclaro.
Alguien puede ayudarme?

Gracias de Antemano.
Jorge

Éste código te sustituye un texto por otro; En éste caso es la primera ocurrencia, basta con que lo incluyas en un While para que lo haga con todas las existentes.

Código Delphi [-]
 var
   n : integer;
 begin
   // Busca el Texto
   n :=RichEdit1.FindText('Cliente',0,Length(RichEdit1.Text),[stMatchCase]);
   // Encontrado?
   if n > -1 then begin
     // Marcar el texto
     RichEdit1.SelStart := n;
     Richedit1.SelLength := Length('Cliente');
     // Sustituirlo...
     RichEdit1.SetSelTextBuf(PAnsiChar('AAAAA'));
   end;