Ir al contenido


Foto

¿Cómo pasar el contenido de un TRichEdit a otro?


  • Por favor identifícate para responder
3 respuestas en este tema

#1 TiammatMX

TiammatMX

    Advanced Member

  • Miembros
  • PipPipPip
  • 1.750 mensajes
  • LocationUniverso Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Ciudad de México\Xochimilco\San Gregorio Atlapulco\Home

Escrito 20 febrero 2013 - 11:48

Buen día/tarde/noche (aplican restricciones  :D ), jóvenes delphineros.

Tengo dos TRichEdit, en uno de ellos se está generando un resumen de una serie de pantallas (a partir de ahora, lo llamaré "Destino"), y en el otro una anotación que puede o no tener formato (ya saben, negritas, itálicas, bullets, etc.) y que es necesario "trasvasar" al destino.

El código que estoy utilizando (y que obviamente, no funciona como quiero, si no no estaría preguntando ahora) es éste:



delphi
  1. with redtResumen do  //TRichEdit Destino
  2.   begin
  3.       Clear;
  4.  
  5.       if Trim(redtMotivo.Text) > '' then
  6.       begin
  7.         Lines.Add('Motivo.');
  8.         Lines.Add(' ');
  9.         redtMotivo.SelectAll;
  10.         redtMotivo.CopyToClipboard;
  11.         PasteFromClipboard;
  12.         Lines.Add(' ');
  13.       end;
  14. .
  15. .
  16. .
  17. .
  18. end;



La pregunta en concreto es: ¿Cómo puedo pasar el CONTENIDO COMPLETO (el texto no, puesto que no conservaría los formatos) de un TRichEdit hacia el otro? Y además, permitir que se continúe agregando texto (con o sin formato) al TRichEdit DESTINO?
  • 0

#2 Rolphy Reyes

Rolphy Reyes

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.092 mensajes
  • LocationRepública Dominicana

Escrito 20 febrero 2013 - 12:58

Saludos.

No lo he probado, solo busque referencia:
Enlace.

  • 0

#3 TiammatMX

TiammatMX

    Advanced Member

  • Miembros
  • PipPipPip
  • 1.750 mensajes
  • LocationUniverso Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Ciudad de México\Xochimilco\San Gregorio Atlapulco\Home

Escrito 22 febrero 2013 - 10:38

...No lo he probado, solo busque referencia:...


Pues no, no hace lo que debe..., pone muchos caracteres extraños (obviamente, los códigos que necesito) y desluce el resultado. ¿Alguna otra idea?
  • 0

#4 TiammatMX

TiammatMX

    Advanced Member

  • Miembros
  • PipPipPip
  • 1.750 mensajes
  • LocationUniverso Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Ciudad de México\Xochimilco\San Gregorio Atlapulco\Home

Escrito 22 febrero 2013 - 11:07

Listo...



delphi
  1. procedure Tform.CopiaRTF(RTFFuente,RTFDestino: TwwDBRichEdit);
  2. var
  3.   msVector: TMemoryStream;
  4. begin
  5.   msVector := TMemoryStream.Create;
  6.   try
  7.       RTFFuente.Lines.SaveToStream(msVector);
  8.       msVector.Seek(0,soFromBeginning);
  9.       RTFDestino.Lines.LoadFromStream(msVector);
  10.   finally
  11.       if Assigned(msVector) then
  12.         msVector.Free;
  13. end;


  • 0




IP.Board spam blocked by CleanTalk.