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钩子注入程序

Delphi listview 与数据库连接

Delphi 取得当前运行窗口的标题

Delphi检测用户是否具有administrator权限

Delphi tform类有关属性简介

Delphi中使用xmlhttp / xmlhttprequest 避免缓存

Delphi获取系统默认的useragent的方法

Delphi 向其他程序发送模拟按键

Delphi xe5开发的android手机截屏功能

Delphi利用微软sapi实现语音控制(Delphi，tts,sr，灰色代码)_

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

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