Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 28-11-2018
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 585
Poder: 23
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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
TClienDataSet Problemas con Campos Blob y Campos Calculados LEVV Conexión con bases de datos 2 11-05-2012 01:25:43
Campos Blob L3st4t Debates 2 25-03-2011 21:55:26
Campos BLOB TJose Firebird e Interbase 4 28-12-2006 18:48:20
Campos Blob Huer Varios 1 11-06-2003 10:39:06
Campos Blob Kafu Firebird e Interbase 2 08-05-2003 18:07:54


La franja horaria es GMT +2. Ahora son las 17:45:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi