求救，请各位指教！！！

Question

我在richedit中添加字符，因为不想一次加一行，所以用richedit.text:=richedit.text + string;然后
richedit.selstart := length(richedit.text)-length(string);
richedit.sellength := length(string);
RichEdit.SelAttributes.Color := Cl;
这么做添加的字符的颜色不能正确按照变量Cl的设置显示。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
我的怎么可以阿？？var
  string1: string;
begin
  string1 := edit1.Text;
  richedit1.text := richedit1.text + string1;
  richedit1.selstart := length(richedit1.text) - length(string1);
  richedit1.sellength := length(string1);
  RichEdit1.SelAttributes.Color := ClGreen;end;

Answer 2

to theone_jxm()
你多click几下前面的字符还是绿色的吗

Answer 3

var
  string1: string;
begin
  string1 := edit1.Text;
  richedit1.text := richedit1.text + string1;
  richedit1.selstart := length(richedit1.text) - length(string1);
  richedit1.sellength := length(string1);
  RichEdit1.SelAttributes.Color := ClGreen;end;
这样是没有问题的