Delphi Trichedit到Rave memo缓冲区

如何将

TRichEdit

的格式化内容放入Rave memo buffer，

TMemoBuf

？

必须使用组件中的函数获取格式化文本（rtf），并使用函数将rtf文本加载到

TMemoBuf

中

var
  MemoryStream: TMemoryStream;
begin
  MemoryStream:= TMemoryStream.Create;
  try
    //get the rtf data from the RichEdit into from the Memory stream
    RichEdit1.Lines.SaveToStream(MemoryStream);
    MemoryStream.Position := 0;
    //load the rtf data into the TMemoBuf
    MemoBuf1.RTFLoadFromStream(MemoryStream,0);
  finally
    MemoryStream.Free;
  end;
end;