TiammatMX |
22-02-2013 20:23:47 |
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...
|