文本显示的问题

Question

用richedit显示access2000中的文本纪录，如何实现文字有不同的字体和颜色或者如何显示一个.txt文档的内容。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);begin
   RichEdit1.Lines.LoadFromFile('F:\1.txt');
   //
   RichEdit1.SelStart:=2;
   RichEdit1.SelLength:=3;
   RichEdit1.SelAttributes.Size:=10 ;
   RichEdit1.SelAttributes.Color:=clred ;
end;