将格式化文本从 SQL 附加到 RichEdit答案

【问题标题】：Append formated text from SQL to TRichEdit将格式化文本从 SQL 附加到 RichEdit
【发布时间】：2014-06-27 11:21:41
【问题描述】：

你能帮忙解决这个问题吗？如何将格式化的 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;

【问题讨论】：

.SelText := 'I am appended if .SelStart := .GetTextLen' and blue if SelAttributes.Color := clBlue;
'格式化文本'？文本是什么格式的？它存储在什么字段类型中（以及在什么数据库中）？
我确实尝试过，但它只会粘贴纯文本。我试图关闭纯文本，如 rtf.plaintext :=false 并使用流，但只会将文本替换为 RtF。我需要保留格式。

标签： delphi trichedit

【解决方案1】：

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

【讨论】：