我将一个字符串分配给我声明的自定义类型，我使用 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 编码/解码。这对我的字符串进行了编码，删除了坏字符。