TRichMemo-LoadRichText不工作

我正在尝试将TRichMemo的内容保存到TMemoryStream,然后能够将格式化的数据从流加载回富备忘录。

问题是 LoadRichText 由于某种原因正在失败。我知道数据已经保存到我的流中,因为我实际上可以将其保存为rtf文件并从外部查看。

这基本上就是我所拥有的:

var
  FMyStream: TMemoryStream;

要保存:

RichMemo1.SaveRichText(FMyStream);

要加载:

FMyStream.Seek(0, soBeginning);
if not RichMemo1.LoadRichText(FMyStream) then
  raise Exception.Create('Failed to load data from stream.');

正如我所说,数据被保存为正确的流,但每次试图加载到富备忘录中都会遇到异常。

可能是什么问题?

的代码 加载RichText 功能是:

function TCustomRichMemo.LoadRichText(Source: TStream): Boolean;
begin
  if Assigned(Source) and HandleAllocated then begin
    Result := TWSCustomRichMemoClass(WidgetSetClass).LoadRichText(Self, Source);
    if not Result and Assigned(RTFLoadStream) then begin
      Self.Lines.BeginUpdate;
      Self.Lines.Clear;
      Result:=RTFLoadStream(Self, Source);
      Self.Lines.EndUpdate;
    end;
  end else
    Result := false;
end;

和 SaveRichText 代码:

function TCustomRichMemo.SaveRichText(Dest: TStream): Boolean;
begin
  if Assigned(Dest) and HandleAllocated then begin
    Result := TWSCustomRichMemoClass(WidgetSetClass).SaveRichText(Self, Dest);
    if not Result and Assigned(RTFSaveStream) then
      Result:=RTFSaveStream(Self, Dest);
  end else
    Result := false;
end;

谢谢