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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.80155396461487 seconds