Delphi 将格式化文本从SQL追加到TRichEdit

你能帮我解决这个问题吗？ 如何将格式化的txt从数据库字段附加到TRichEdit

我想澄清一下： 我需要得到2个已格式化文本RTF的数据库字段的内容，并将它们放入TrichEdit中以保留格式。 我使用MSSQL Express，字段设置为ANSI格式的文本

好的，这个很好用：

  tmp := tblCases.FieldByName('Field1').AsString;
  str := tblCases.FieldByName('Field2').AsString;
  delete (tmp,LastDelimiter ('}',tmp),1);
  delete (str,1,1);
  ms := TStringStream.Create (tmp+ AnsiSTRing (#13#10)+str);
  ms.Position :=0;
  DBDX.Lines.LoadFromStream(MS);
  ms.Free;

---

为了合并2个RTF字段，我删除了第一个括号的最后一个闭包}和第二个括号的第一个括号，从而创建了一个字符串。然后使用TstringStream粘贴到TrichEdit中。请参阅上面更新的代码。

.SelText:=“如果.SelStart:=.GetTextLen'将追加我，如果SelAttributes.Color:=clBlue；”则追加蓝色格式化文本'？文本的格式是什么？它存储在哪种字段类型和哪种数据库中？我确实尝试过，但它只会粘贴一个纯文本。我尝试关闭纯文本，如rtf.plaintext:=false并使用stream，但将只替换rtf中的文本。我需要保留格式。