如何取得RichEdit控件中的文本和文本格式? ( 积分: 50 )

比如RichEdit中的内容为"中华人们共和国","中华人们共和国"字体是黑体,大小是10号
用RichEdit.Text得到只是"中华人们共和国"几个字
我要得到这样的格式{/rtf1/ansi/ansicpg936/deff0/deflang1033/deflangfe2052{/fonttbl{/f0/fnil/fprq2/fcharset134 /'ba/'da/'cc/'e5;}}
{/*/generator Msftedit 5.41.15.1507;}/viewkind4/uc1/pard/lang2052/f0/fs20/'d6/'d0/'bb/'aa/'c8/'cb/'c3/'c7/'b9/'b2/'ba/'cd/'b9/'fa/par
}如何获得?
注以上格式是把RichEdit.Lines.SaveToFile然后用记事本打开看到的)

比如RichEdit中的内容为"中华人们共和国","中华人们共和国"字体是黑体,大小是10号
用RichEdit.Text得到只是"中华人们共和国"几个字
我要得到这样的格式{/rtf1/ansi/ansicpg936/deff0/deflang1033/deflangfe2052{/fonttbl{/f0/fnil/fprq2/fcharset134 /'ba/'da/'cc/'e5;}}
{/*/generator Msftedit 5.41.15.1507;}/viewkind4/uc1/pard/lang2052/f0/fs20/'d6/'d0/'bb/'aa/'c8/'cb/'c3/'c7/'b9/'b2/'ba/'cd/'b9/'fa/par
}如何获得?
注以上格式是把RichEdit.Lines.SaveToFile然后用记事本打开看到的)

function GetRtfInnerText(ARichEdit: TRichEdit): string;
var
strRTF: TStringStream;
begin
strRTF := TStringStream.Create('');
try
ARichEdit.Lines.SaveToStream(strRTF);
Result := strRTF.DataString;
finally
strRTF.Free;
end;
end;

ARichEdit.plaintext := false;即可