RTF格式文档转换为文本格式文档？

Question

如何不用控件(TRichedit或其他)，直接把RTF格式文档转换为文本格式文档？

Answer 1

procedure RTF2Str(Handle: HWND; rtf: TmemoryStream; var str: string);
var
  richEdit: TRichedit;
begin
  rtf.Position := 0;
  RichEdit := TRichEdit.CreateParented(Handle);
  RichEdit.WordWrap := false;
  RichEdit.Lines.LoadFromStream(rtf);
  str := richEdit.Lines.GetText;
  richEdit.free;
end;

Answer 2

如果你是在预览的时候,可用下面的代码
Var
  Abc:TQrAsciiExportFiler;
Begin
  Abc:=TQrasciiExportFilter.Create('Report.Txt');
  Try
    Report.ExportToFilter(Abc);
  Finally
    Abc.Free;
  End;
End;