Delphi RTF文件转Txt函数

原理：借用TRichEdit组件，TRichEdit可以读取RTF文件并且显示出文本内容，将文本内容保存就可以了

procedure RtfToText(rtfStrs, textStrs : TStrings);

var rtfEditor : TRichEdit;
begin
  //rtf文本转换成txt文本
  if Assigned(rtfStrs) and Assigned(textStrs) then
  begin
    rtfEditor := TRichEdit.Create(nil);
    try
      rtfEditor.Lines.Assign(rtfStrs);
      textStrs.Assign(rtfEditor.Lines);
    finally
      rtfEditor.Free;
    end;
  end;
end;