问题看起来巨菜但是....?关于richedit（分多多）

Question

小弟希望达到如此效果，程序运行后用户输入字符在richedit中，请问如何将一个rtf文件的类容导入到当前位子？不能破坏用户输入的内容，啊啊啊啊！我试了用richedit.line.loadfromfile(),可是破坏用户输入的内容。请回答的详细点

Answer 1

以下可以完成你的要求，很简单，没有写注释，你可以直接试一下，成功了别忘了给分！！！
var
  RichTemp:TRichEdit;
begin
  RichTemp:=TRichEdit.Create(self);
  RichTemp.parent:=self;
  RichTemp.Visible:=false;
  RichTemp.Lines.LoadFromFile('F:\asf.rtf');
  RichTemp.SelectAll;
  RichTemp.CopyToClipboard;
  RichEdit1.SelLength:=0;
  RichEdit1.PasteFromClipboard;
  RichTemp.Free;
end;