Añadir el contenido de un TRichEdit a otro.

[TiammatMX]

Empezado por Casimiro Notevi

¿Y esos caracteres de control no están en el .Text?, ¿dónde están?
Es por curiosidad.

Son parte del texto, pero son los que "embellecen" el RichEdit. Por ejemplo, yo tengo éste procedimiento...

Código Delphi [-]
procedure Tform.FormateaTextoRTF(sTexto1,sTexto2: string;iTipo: Integer;Destino:TwwDBRichEdit);
begin
   with Destino do
   begin
      SelStart := GetTextLen;
      case iTipo of
         0 : begin
                SelAttributes.Size := 12;
                SelAttributes.Style := [fsBold];
                SelAttributes.Color := clNavy;
             end;
         1 : begin
                SelAttributes.Size := 10;
                SelAttributes.Style := [fsBold];
                SelAttributes.Color := clNavy;
             end;
         2 : begin
                SelAttributes.Size := 9;
                SelAttributes.Style := [fsBold];
                SelAttributes.Color := clWindowText;
             end;
         3 : begin
                SelAttributes.Size := 8;
                SelAttributes.Style := [fsBold];
                SelAttributes.Color := clWindowText;
             end;
      end;
      SelText := sTexto1;
      SelAttributes.Size := 8;
      SelAttributes.Style := [];
      SelAttributes.Color := clWindowText;
      if Trim(sTexto2) > '' then
         SelText := sTexto2;
      SelText := CRLF;
   end;
end;

Si te das cuenta, primero le da formato al texto Y DESPUÉS lo escribe. Éstos caracteres de control son los que no alcanza a copiar el .Text de un RichEdit a otro...

[Casimiro Noteví]

No me había dado cuenta que no estás usando "plaintext" sino "rtf".

Echa un vistazo a este hilo y a este otro.

[ecfisa]

Hola tiammat.

Revisa también este código de Zarko Gajic Append or Insert RTF from one RichEdit to Another, y aunque esta mas complicado que ponerle pantalón a un pulpo, con TRichEdit funciona.

Saludos.