Reemplazar letras en TRichEdit

[Niko]

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

[Neftali [Germán.Estévez]]

É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.


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;