2
ans:= RichEdit1.Text     
for i:=1 to Length(ans) do
begin
   RichEdit1.SelStart :=  i-1;
   RichEdit1.SelLength:= 1;
   if ans[i] = correct[i] then
      RichEdit1.SelAttributes.Color := clRed
   else
      RichEdit1.SelAttributes.Color := clBlue;  

如果 in中的字母与 stringans中的字母在相同位置的字母correct匹配,则将其着色为红色,否则为蓝色。

我的问题是当我再次键入时,整个 RichEdit1 文本的颜色与第一个字母相同(如果第一个字母RichEdit1为蓝色,则整个文本变为蓝色)。

顺便说一句,这不是我刚刚简化的实际代码,因为有多个 TRichEdits。
TRichEdits 是只读的,我通过类似的方式分配字母RichEdit1.Text := RichEdit1.Text+Key; (这样做是因为它是一个多键盘程序,我需要分隔用户输入)

这是正确的行为吗?如何阻止我的颜色更改覆盖默认颜色?

更新:解决了它......以一种草率的方式(每当有人键入时应用默认颜色),但我保持打开状态以防有人提出更好的解决方案。

4

1 回答 1

5

正如您已经发现的那样,您必须在完成后重置默认颜色,例如:

ans := RichEdit1.Text;
for i := 1 to Length(ans) do 
begin 
  RichEdit1.SelStart := i-1; 
  RichEdit1.SelLength := 1; 
  if ans[i] = correct[i] then 
    RichEdit1.SelAttributes.Color := clRed 
  else 
    RichEdit1.SelAttributes.Color := clBlue;
end;
RichEdit1.SelStart := RichEdit1.GetTextLen;
RichEdit1.SelLength := 0;
RichEdit1.SelAttributes.Color := RichEdit1.Font.Color;

有比一次着色一个字母更有效的方法来处理这个问题,例如:

const
  colors: array[Boolean] of TColor = (clRed, clBlue);
var
  ans: string;
  start, len: Integer;
  cur_state: Boolean;

  procedure ColorRange(AStart, ALength: Integer; AColor: TColor);
  begin
    RichEdit1.SelStart := AStart;
    RichEdit1.SelLength := ALength;
    RichEdit1.SelAttributes.Color := AColor;
  end;

begin
  RichEdit1.Lines.BeginUpdate;
  try
    ans := RichEdit1.Text;
    start := 0;
    len := 0;
    cur_start := False;

    for i := 1 to Length(ans) do 
    begin 
      if (ans[i] = correct[i]) = cur_state then
        Inc(len)
      else begin
        if len > 0 then
          ColorRange(start, len, colors[cur_state]);
        start := i-1;
        len := 1;
        cur_state := not cur_state;
      end;
    end;
    if len > 0 then
      ColorRange(start, len, colors[cur_state]);
    ColorRange(RichEdit1.GetTextLen, 0, RichEdit1.Font.Color);
  finally
    RichEdit1.Lines.EndUpdate;
  end;
end;

此外,使用 Text 属性附加单个 Char 效率非常低。请改用 SelText 属性,例如:

RichEdit1.SelStart := RichEdit1.GetTextLen;
RichEdit1.SelLength := 0;
RichEdit1.SelAttributes.Color := ...; // optional
RichEdit1.SelText := Key;
于 2010-09-24T06:08:45.613 回答