Question

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

您以前给我编的那个代码........运行后如错了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

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

建议用高版本的delphi来做，比如xe系列的，unicode还是方便很多