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;

相关阅读 >>

Delphi如何获取系统服务(即service服务程序)列表

Delphi 泛型搜索字符串数组

Delphi 三个消息函数的威力

Delphi通过调用com对象实现更改桌面壁纸

Delphi getcurrentdir 获取当前文件夹

Delphi实现文件下载的几种方法

Delphi 怎么将一个流转换成字符串?或者将字符串转出一个流

Delphi改变文件夹图标

Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件

Delphi 获取自身软件的版本号

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...