RichEdit中如何获取打开文件的字体和颜色？

Question

我在RichEdit中编辑了一个文本，设好了字体（宋体）和颜色（红色），保存后再打开时虽然能显示出来，但RichEdit的Font的字体和颜色却没有相应的变成所打开文件的字体和颜色,还是默认值：MS Sans Serif 和 clWindowText(黑色)，请问如何获取我想要的字体（宋体）和颜色（红色）?  THX

Answer 1

save:
a  TBlobField(Query1.FieldByName('RichEdit')).Assign(RichEdit1.Lines);
                                                       =================
                                               .Lines不行的话改为.Lines.Text
b  TBlobField(Query1.FieldByName('RichEdit')).LoadFromFile(filename);show:
a  RichEdit1.Lines.Assign(Query1.FieldByName('RichEdit'));b  RichEdit1.Lines.LoadFromFile(filename);你试试看行否，我做过的，不知代码记得对不对！

Answer 2

我不是存在数据库里的，存储和打开我用的是SaveDialog和OpenDialog,请问该如何操作？

Answer 3

FontSize.Text := IntToStr(Editor.SelAttributes.Size);
FontName.Text := Editor.SelAttributes.Name;

Answer 4

Open: RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);Save: RichEdit1.Lines.SaveToFile(OpenDialog1.FileName);你试试看行否,注意文件后缀名应该是（.rtf 或 wri），建议rtf

Answer 5

我用的就是楼上的办法，但不行,文件后缀是rtf也不行。
多谢libra163！！！

Answer 6

楼上的方法是正确的。
我测试了一下。
PASS！！！procedure TForm1.Button1Click(Sender: TObject);
begin
  Richedit1.Lines.SaveToFile('c:\xx.rtf');end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Richedit1.Lines.loadfromFile('c:\xx.rtf');
end;

Answer 7

直接打开richedit是可以parse这些内容的.如果你选择plaintext则可以显示你装入的脚本,