Question

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

richedit1里有N个字，如果richedit2里输入的第一个字和richedit1里的第一个字不同时richedit1里第一个字的颜色变成红色否则颜色不变

Answer 1

字符串可以看作字符数组。redt2里输入的字就是字符串的最后一个,
p := length(redt2.Text) -2; //最后一个字符好像是换行符
s := redt2.Text[p];

拿s 和redt1里对应的字符比较,
if s <> redt1.Text[p] then
begin
redt1.SelStart :=n; //选择部分开始位置
redt1.SelLength :=1; //选择部分长度
redt1.SelAttributes.Color := clred;
end;

以上应该只适用非汉字情况，汉字是2个字符对应1个汉字。

追问

好像错了 运行不了

追答

这里主要是给你一个思路，逐个对比string字符串，可以达到你要的效果。
你如果想追问，应该要说明错误提示，或者错误类型。
只一句运行不了，没法帮你解决。