将 RichEdit 格式保留为字符串

Question

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

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

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

这非常适合纯字符串，我想允许富格式文本存储在字符串中，而不会丢失格式。我设法通过使用 RichEdit 上的 Streams 来做到这一点，因为我正在使用免费软件 Zeos Lib （SQL） 保存我的数据库，我收到未知令牌错误（可能来自 RTF 标签）。如何保存而没有错误？

更新

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

Answer 1

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

（我最初的答案是针对 C# - 误读了你的问题）