从 D2005 升级到 D2010 : TRichEdit

发布于 2024-11-26 09:34:15 字数 685 浏览 0 评论 0原文

以下代码在 D2005 上运行良好：

  MyRichEdit1.Text := TMemoField(Query1.FieldByName('Msg')).asString;

但在 D2010 中，此代码以纯文本形式输出文本，而不是以 rtf 形式输出。

为了解决这个问题，我使用以下代码

MyRichEdit1.PlainText := False;
MyRichEdit1.Text := TMemoField(Query1.FieldByName('Msg')).asString;
MyRichEdit1.PlainText := TRUE;
MyRichEdit1.Lines.SaveToFile('Lixo.Rtf');
MyRichEdit1.PlainText := False;
MyRichEdit1.Lines.LoadFromFile('Lixo.Rtf');

如何将 rtf 文本从数据库导入到 TRichEdit，而无需在此过程中使用文件？我尝试了该解决方案这个问题但它不起作用，它以纯文本形式出现，并且每个字符之间有一个空格。

谢谢山姆

原文

The following code works well on D2005 :

  MyRichEdit1.Text := TMemoField(Query1.FieldByName('Msg')).asString;

But in D2010, this code outputs the text in plain text and not on rtf.

To solve the problem I'm using the following code

MyRichEdit1.PlainText := False;
MyRichEdit1.Text := TMemoField(Query1.FieldByName('Msg')).asString;
MyRichEdit1.PlainText := TRUE;
MyRichEdit1.Lines.SaveToFile('Lixo.Rtf');
MyRichEdit1.PlainText := False;
MyRichEdit1.Lines.LoadFromFile('Lixo.Rtf');

How can I import rtf text from a database to a TRichEdit without having to use a file in the process?
I tried the solution on
this question
but it doesn't work, it appear in plain text and with a space between each char.

Thanks
Sam

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

属性 2024-12-03 09:34:15

如果您尝试将 RTF 代码加载到 TRichEdit 中，请将 RTF 放入 TStream 对象中，并使用 RichEdit 的 LoadFromStream() 方法PlainText 属性设置为 False。

回复收藏 0 原文

眼泪淡了忧伤 2024-12-03 09:34:15

该解决方案适用于 C++ Builder XE，但类似的解决方案也可用于 Delphi。

UnicodeString str = L"{\\rtf1 \\qr r{\\sub nom} = ----}"; // some rtf coded text
stream = new TStringStream();
stream->Clear();
stream->WriteString(str);
stream->Seek(0, soFromBeginning);
MyRichEdit1->Lines->LoadFromStream(stream);
delete stream;
stream = NULL;

This solution is for C++ Builder XE, but analogous could be used for Delphi.

UnicodeString str = L"{\\rtf1 \\qr r{\\sub nom} = ----}"; // some rtf coded text
stream = new TStringStream();
stream->Clear();
stream->WriteString(str);
stream->Seek(0, soFromBeginning);
MyRichEdit1->Lines->LoadFromStream(stream);
delete stream;
stream = NULL;

回复收藏 0 原文

~没有更多了~