本文整理自网络,侵删。
原理:借用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;
相关阅读 >>
Delphi如何获取系统服务(即service服务程序)列表
Delphi 怎么将一个流转换成字符串?或者将字符串转出一个流
Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件
更多相关阅读请进入《Delphi》频道 >>