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;