关于字体改变颜色！！！！！！急，请帮忙！！

Question

我准备要做一个， 测试打字速度的小程序。窗口上下2个部分。上面的是要输入的文章，下面是测试输入的。 当输入汉字后，如正确，上面对应的汉字，颜色改变为绿色，如果不对，该字变为红色。 请问，该使用什么控件，怎么实现?很着急，请大家帮助！

Answer 1

直接用字符串比较阿，Delphi中缺省的String为WideString，支持Unicode，可以直接比较的

Answer 2

使用TRichEdit控件function Tform1.CurrText: TTextAttributes;
begin
  if (richedit1.SelLength > 0) or (richedit1.SelStart>0) then 
    Result := richedit1.SelAttributes
  else
    Result := richedit1.DefAttributes;
end;
procedure Tform1.Button1Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    CurrText.Color := ColorDialog1.Color;
end;