怎样编程对RichEdit进行设置？

Question

怎样将数据库中的两个字段的内容，以不同的颜色输出到RichEdit组件上？下面的方向正确否？
begin
RichEdit1.defattributes:=设置值（颜色1）；
RichEdit1.SelStart:=0;
RichEdit1:=query1.Params[1].AsString;RichEdit1.lines //设法加一行RichEdit1.defattributes:=设置值（颜色2）；
RichEdit1.SelStart:=0;
RichEdit1:=query1.Params[2].AsString;end;

Answer 1

  RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.Lines.Add('红色');  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.Lines.Add('蓝色');

Answer 2

procedure TForm1.Button1Click(Sender: TObject);var count:integer;
str1,str2:string;
begin
RichEdit1.SelAttributes.Color := clRed;
RichEdit1.Lines.Add('红色');
RichEdit1.lines.add(str1);
count:=RichEdit1.lines.count;
count:=count+1;
RichEdit1.SelAttributes.Color := clBlue;
RichEdit1.Lines.Add('蓝色');
RichEdit1.lines(count).add(str2);
end;[Error] Unit1.pas(39): Missing operator or semicolon
[Fatal Error] Project66.dpr(5): Could not compile used unit 'Unit1.pas'
代码编译不过。

Answer 3

procedure TForm1.Button1Click(Sender: TObject); var count:integer; 
str1,str2:string; 
begin 
RichEdit1.SelAttributes.Color := clRed; 
RichEdit1.Lines.Add('红色'); 
RichEdit1.lines.add(str1); 
count:=RichEdit1.lines.count; 
count:=count+1; 
RichEdit1.SelAttributes.Color := clBlue; 
RichEdit1.Lines.Add('蓝色'); 
RichEdit1.lines(count).add(str2);   //这是第39句
end; [Error] Unit1.pas(39): Missing operator or semicolon 
[Fatal Error] Project66.dpr(5): Could not compile used unit 'Unit1.pas' 
代码编译不过。

Answer 4

您的代码解决了字体的颜色，原来写的换行代码看来不必要，只要改为：RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.Lines.Add('str1');  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.Lines.Add('str2');即可。