Rtf a texto plano

[fdelamo]

Hola glopez,

¿por que no los puedes usar?, crealos en ejecución y los usas, aunque no sean visibles

Saludos

[glopez]

Cuando creo un richedit en ejecución e intento asignarle el texto del campo me dice que el richedit no tiene padre.

[[Bicho]]

Pues asígnale un padre hombre!!

Al crearlo pones esto:

Código Delphi [-]
RichEdit1.Parent := Panel1 
// Aquí pones el componente que le quieres asignar como padre, 
// yo he puesto un panel ya que es lo más usual, 
// pero tambien puedes asignarle directamente el form1.

Saludos

[fdelamo]

¿Si?, no lo sabía,

pues prueba a crear un padre (un TPanel, por ejemplo)

a ver si consigues algo ...

[glopez]

He conseguido hacerlo de esta manera pero utilizando componentes visuales creados en tiempo de diseño:

RichEdit1.SetTextBuf(PChar(Tabla.FieldByName('comentarios').AsString));
RichEdit2.SetTextBuf(PChar(RichEdit1.Text));

[glopez]

Si hago el codigo anterior pero con componentes creados en tiempo de ejecución el texto me lo devuelve con formato.

[fdelamo]

Prueba con esto:

Código Delphi [-]
var
  a: TRichEdit;
  p: TForm;
begin
  p := TForm.Create(nil);
  a := TRichEdit.Create(p);
  a.Parent := p;
  a.Lines.LoadFromFile('c:\Documento.rtf');
  a.PlainText := True;
  a.Lines.SaveToFile('c:\Documento.txt');
  a.Free;
  p.Free;

Con TPanel no se puede "Control has no parent window" ¿alguien sabe por que? ¿por ser descendiente de TWinControl?

Un saludo

[glopez]

Gracias fdelamo funciona muy bien pero al meterlo en el motor va muy lento ya que tiene que crear un form y un richedit en cada linea de la base de datos.

[[Bicho]]

Pero entonces, si es tan lento, ¿porque no se lo asignas a tu form donde trabajas? no necesitas crear un nuevo form, sólo el richedit.

Saludos