Ver Mensaje Individual
  #5  
Antiguo 28-11-2018
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 583
Reputación: 21
santiago14 Va por buen camino
Wink

Entiendo.
Tienen razón, no hay manera de concatenar si son RTF. Hay que extraerlos y hacerlo con Stream's.
Ya estoy en eso.

Pongo a consideración unos pequeños procedimientos que hacen eso. Espero sirva. Los hice en DelphiXE5.

Código Delphi [-]
{-------------------------------------------------------------------------------
  Procedure: RichEditToPlainText
  Author:    santiago
  DateTime:  2018.11.27
  Arguments: RichEdit:TRichEdit
  Result:    string
  Comments: Tomamos un RichEdit y lo ponemos en texto plano.
-------------------------------------------------------------------------------}
function RichEditToPlainText(RichEdit:TRichEdit):string; overload;
var
  Stream:TStream;
  ed: TRichEdit;
begin
  ed:=TRichEdit.CreateParented(HWND_MESSAGE);
  Stream:=TStream.Create;
  ed.PlainText:=True;
  RichEdit.Lines.SaveToStream(Stream);
  ed.Lines.LoadFromStream(Stream);
  Result:=Trim(ed.Lines.Text);
  ed.Free;
  Stream.Free;
end;

function RichEditToPlainText(Stream:TStream):string; overload;
var
  ed: TRichEdit;
begin
  ed:=TRichEdit.CreateParented(HWND_MESSAGE);
  ed.PlainText:=True;
  ed.Lines.LoadFromStream(Stream);
  Result:=Trim(ed.Lines.Text);
  ed.Free;
end;

Muchas gracias.
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
Responder Con Cita