将RichEdit格式保存为字符串？

Question

我正在为我声明的自定义类型分配一个字符串，我使用TTreeViews Node.Data属性读取/写入。我对节点进行读写操作，如下所示：

阅读：RichEdit1.Lines.Text := TMyData(TreeView1.Selected.Data).MyString;

写：TMyData(TreeView1.Selected.Data).MyString := RichEdit1.Lines.Text;

这适用于普通字符串，我希望允许将Rich Formatted文本存储在字符串中，而不会丢失格式。我设法通过在RichEdit上使用Streams来实现这一点，因为我使用Freeware Zeos Lib（SQL）保存我的数据库我得到了Unknown Token错误（可能来自RTF标记）。如何在没有错误的情况下保存？

更新

我已设法正确保存，而不会出现错误，使用Sylverdrag建议的Base64编码/解码。这会编码我的字符串，删除坏字符。

Answer 1

查看http://delphi.about.com/od/adptips2003/a/bltip1203_5.htm

（我原来的答案是针对C＃ - 误读了你的问题）