[rauros]

Este truco es bastante útil para hacer editores de texto que lo colorean, para grabar los progresos en txt y no en rtf. Gracias a Miguel por la ayuda.

Código Delphi [-]
function RtfToTxt(Rtf: TStrings): TStrings;
 Var
  RtfInvisible: TRichEdit;
 Begin
  TrichEdit.Create(RtfInvisible);
  Try
   RtfInvisible.PlainText:=False;
   RtfInvisible.Lines:=Rtf;
   RtfInvisible.PlainText:=True;
   result:=RtfInvisible.lines;
  Finally
  if Assigned(RtfInvisible) then RtfInvisible.Free;
  end;
 end;