delphi - 将格式化文本从 SQL 附加到 TRichEdit

Question

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

澄清一下：我需要获取 2 个具有格式化文本 (RTF) 的数据库字段的内容，并将它们放入 TrichEdit 中以保留格式。我使用 MSSQL Express，该字段设置为 ANSI 格式的 TEXT。

好的，这很好用：

  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;

Answer 1

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