Insertar al final de RichEdit
 

Quiero insertar al final del RichEdit un caracter.
He visto en uno de los hilos lo siguiente, pero no me sirve
ya que el RichEdit1 mio tiene tambien imágenes incrustadas.
Si consigo la solución os la pongo. Si alguien me puede ayudar
se lo agradecería.

var
a : String;
begin
a := RichEdit1.Text;
Insert('lolo',a,RichEdit1.SelStart+1);
RichEdit1.Text := a;
end;

Hola,

Supongo que esto no te valdrá:

Código Delphi [-]
 RichEdit1.Lines.Add('a'); // esto...
 RichEdit1.Lines.Append('a'); // o esto otro...

O tal vez puedas probar con algo así:

Código Delphi [-]
 var
   linea: string;
   numLinea: integer;
 begin
   numLinea := RichEdit.Lines.Count-1;
   linea := RichEdit.Lines.Strings[numLinea];
   linea := linea + 'a';
   RichEdit.Lines.Strings[numLinea] := linea;
 end;

tampoco me sirve
 

Tampoco me sirve, mi idea es :
Añadir al final de un RxRichEdit la siguiente linea : prueba [imagen] hola
Hasta el momento solo lo he conseguido con líneas separadas.

procedure TForm1.Button2Click(Sender: TObject);
begin
RxRichEdit1.Lines.add('prueba');
Clipboard.Assign(Image3.Picture);
RxRichEdit1.PasteFromClipboard;
RxRichEdit1.Lines.add('hola');
end;

Casi lo tengo
 

En un RxRichEdit1 tengo el texto--> hola :D saludos :D
Ya consigo reemplazarlo todas las :D por imagenes. Ahora quisiera saber como puedo copiar este RxRichEdit1 al final de otro RxRichEdit1 que ya contiene líneas (chat). Podría hacer que buscará (Findtext) cada vez en el RxRichEdit de destino y reemplazará pero supongo que conforme fueran creciendo las lineas del chat se haría intratable. Por eso solo quiero tratar la última línea introducida en el RxRichEdit.

procedure TForm1.Button2Click(Sender: TObject);
var
n : integer;
begin
// Busca el Texto
n :=RxRichEdit1.FindText(':D',0,Length(RxRichEdit1.Text),[]); // [stMatchCase]);
// Encontrado?
while n>-1 do begin
showmessage(intTostr(n));
// Marcar el texto
RxRichEdit1.SelStart := n;
RxRichEdit1.SelLength := Length(':D');
// Sustituirlo...
Clipboard.Assign(Image3.Picture);
RxRichEdit1.PasteFromClipboard;
n :=RxRichEdit1.FindText(':D',0,Length(RxRichEdit1.Text),[]); // [stMatchCase]);
end;
end;

Solucion
 

procedure TForm1.Button2Click(Sender: TObject);
var
n : integer;
start:integer;
begin
// Busca el Texto
start:=Length(RxRichEdit1.Text);
RxRichEdit1.Lines.add('hola :D soy yo :D');

n :=RxRichEdit1.FindText(':D',start,Length(RxRichEdit1.Text),[]); // [stMatchCase]);
// Encontrado?

while n>-1 do begin
showmessage(intTostr(n));
// Marcar el texto
RxRichEdit1.SelStart := n;
RxRichEdit1.SelLength := Length(':D');
// Sustituirlo...
Clipboard.Assign(Image3.Picture);
RxRichEdit1.PasteFromClipboard;
n :=RxRichEdit1.FindText(':D',start,Length(RxRichEdit1.Text),[]); // [stMatchCase]);
end;
end;