Richedit选中的中文变色问题

[Swosna]

我想用Richedit做一个打字程序，英文比较变色是没问题，但是中文的话，真么弄都不行
代码如下：

void __fastcall TForm1::EdInputChange(TObject *Sender)
{
AnsiString Ansi_Read = "";
AnsiString Ansi_Write = "";

//iTotallen 是一个全局变量，用来记录此事件发生之前的RichEdit的总字节大小
Ansi_Read = LaText->Caption.SubString(iTotalLen + 1,EdInput->Text.Length() - iTotalLen);
Ansi_Write = EdInput->Text.SubString(iTotalLen + 1,EdInput->Text.Length() - iTotalLen);
EdInput->SelAttributes->Color = clBlack;

//ShowMessage(Ansi_Read);
//ShowMessage(Ansi_Write);
if (Ansi_Read != Ansi_Write)
{
//如果没有这个ShowMessage的话错的中文字不会变色，英文可以
ShowMessage( Ansi_Read );
// ShowMessage( Ansi_Write );
EdInput->SelStart = iTotalLen ;
EdInput->SelLength = EdInput->Text.Length() - iTotalLen ;
EdInput->SelAttributes->Color = clRed;
EdInput->SelStart = EdInput->Text.Length();
EdInput->SelLength = 0;

}
else
{
EdInput->SelStart = iTotalLen ;
EdInput->SelLength = EdInput->Text.Length() - iTotalLen ;
EdInput->SelAttributes->Color = clBlack;
EdInput->SelStart = EdInput->Text.Length();
EdInput->SelLength = 0;
Form1->Canvas->TextOutA(100,200, Ansi_Write);

}


iTotalLen = EdInput->Text.Length();
}

[Swosna]

顶一下先，谁来帮帮我啊

[F117p]

改：
EdInput->SelStart = iTotalLen-1 ;

[Maconel]

你每次都取最后一个字节，但是中文是占2个字节的，这样取当然会有问题。
建议用WideString.

[Swosna]

我取出来的不是最后一个字节而已，能取出整个字，对比已经正确了的，就是有ShowMessage()的时候就可以正常显示错误的字。没有的话是不可以的

[qjackq]

你一次读两个字节，相当于一个字，那样就可以改变颜色了啊？？？如果行找skame ming

[qjackq]

你那个字节长度直接用2就行了吧？？？实在不行找下 skame ming 哦，老大

[qjackq]

你懂得怎么样做测试没？把时间停下来啊？？？懂的请留言，不懂也要留言

[Swosna]

如果你是用timer来计时的话，把它Enabel属性设为false就可以了

[F117p]

中文没有颜色问题，可能是在中文的第2个字节起，也就是SelStar选中的第2个字节，这样，每法进行着色。请分析你的SelStar是否选取恰当？注意SelStar=0选取的是第1个字符。

[Swosna]

楼上的仁兄，你的方法行不通阿，减一不行，我减二也不行啊

[Hamlit]

老朋友，你到305工作室问吧！

[Hamlit]

我有现成的代码！

[Hamlit]

RichEdit控件的属性是这样的，存储ASCII码字符的时候，占一个字节宽度；如果是wchar_t类型的则需要两个字节。注意：第一个字变色的时候，无法是ASCII码字符，还是宽字符型，RichEdit1->SelLength=1。只能等于一！