Ver Mensaje Individual
  #1  
Antiguo 22-02-2013
Avatar de TiammatMX
TiammatMX TiammatMX is offline
Miembro
 
Registrado: jun 2006
Ubicación: Universo Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Puebla\Heróica Puebla de Zaragoza\Jardines de San Manuel\Home
Posts: 746
Reputación: 18
TiammatMX Va camino a la fama
Añadir el contenido de un TRichEdit a otro.

Buena tarde, jóvenes Delphineros.

Resulta que tengo VARIOS TRichEdit (bueno, en realidad, son componentes comprados que se comportan como un TRichEdit) y deseo AÑADIR el contenido de ellos y resumirlos en un componente que se encargará de imprimir y demás.

Tengo éste código, que COPIA y SUSTITUYE el contenido del RichEdit destino, pero ELIMINA el contenido anterior, el cual NECESITO conservar.

Código Delphi [-]
procedure Tform.CopiaRTF(RTFFuente,RTFDestino: TwwDBRichEdit);
var
   msVector: TMemoryStream;
begin
   msVector := TMemoryStream.Create;
   try
      RTFFuente.Lines.SaveToStream(msVector);
      msVector.Seek(0,soFromBeginning);
      RTFDestino.Lines.LoadFromStream(msVector);
   finally
      if Assigned(msVector) then
         msVector.Free;
   end;
end;

¿Alguna idea que me ayude? Tengo casi todo listo, pero el tema de "añadir" me tiene vuelto loco...
__________________
Felipe Eduardo Ortiz López. Delphi programmers does it recursively...

"Un programador, es un creador de universos en donde sólo él es responsable. Universos de complejidad prácticamente ilimitada que se puede crear en forma de programas de ordenador." - Joseph Weizenbaum.

Témele a los profetas... y a aquellos que están listos para morir por "la verdad", ya que como regla general hacen morir a muchos otros con ellos, frecuentemente antes que ellos, y a veces en lugar de ellos. — Umberto Eco
Responder Con Cita