Question

在Delphi里怎么编程关于两个richedit里的改变字体颜色

下面那个代码........运行后richedit1里的第一个字如错了richedit1里所有字的颜色变成红色，可我想要结果是那个字错了就那个字的颜色变红色。大家帮个忙改一下。。。。。
procedure TForm1.redt2Change(Sender: TObject);
var i: Integer;
begin
for i := 0 to Length(redt2.text) -1 do
begin
redt1.SelStart := i;
redt1.SelLength := 1;
if Copy(redt1.Text, i +1, 1) = Copy(redt2.Text, i+1, 1) then
redt1.SelAttributes.Color := clBlue
else
redt1.SelAttributes.Color := clRed;
end;
end；

Answer 1

richedit是不行的，没有这个功能。
只能设定所有文字颜色。
估计你需要找个功能强一点的控件。