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应用synedit完美实现sql语法高亮

Delphi跨平台tcp库的封装

Delphi 如何获取窗口的图标

Delphi 将strings合并成一个逗号分隔的字符串,用于sql

Delphi xe5下android中调用条码的方法

Delphi urldownloadtofile 支持进度条

Delphi 进制转换之10进制与34进制互转

Delphi 重启启动计算机的代码

Delphi穿墙自启动下载者4.0

Delphi清空回收站

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

转载请注明出处：木庄网络博客 » Delphi RTF文件转Txt函数