如何设置RICHEDIT中某一行的颜色

[lianrouwupan]

在EDIT1里输入某一行数。
然后按一个按钮，弹出颜色对话框，RICHEDIT里相应的行数里的字符颜色就变成选中的颜色，其他行数的字符颜色不变。
请教各位大侠。

[lianrouwupan]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString a=Edit1->Text;
int i=StrToInt(a);


AnsiString s=RichEdit1->Lines->Strings[i];
if(ColorDialog1->Execute())

RichEdit1->SelStart=0;
RichEdit1->SelLength=s.Length();
RichEdit1->SelAttributes->Color=ColorDialog1->Color;

}

我这样写，为什么永远都是第一行上颜色，高手指教下。

[lzh280]

[code=void] __fastcall TForm1::Button1Click(TObject *Sender)
{
int LineNo = Edit1->Text.ToIntDef(1);

RichEdit1->SelStart = SendMessage(RichEdit1->Handle, EM_LINEINDEX, LineNo - 1, 0);
RichEdit1->SelLength = RichEdit1->Lines->Strings[LineNo - 1.Length();

if(ColorDialog1->Execute())
{
RichEdit1->SelAttributes->Color = ColorDialog1->Color;
}
}][/code]

[lzh280]

[code=void] __fastcall TForm1::Button1Click(TObject *Sender)
{
int LineNo = Edit1->Text.ToIntDef(1);

RichEdit1->SelStart = SendMessage(RichEdit1->Handle, EM_LINEINDEX, LineNo - 1, 0);
RichEdit1->SelLength = RichEdit1->Lines->Strings[LineNo - 1.Length();

if(ColorDialog1->Execute())
{
RichEdit1->SelAttributes->Color = ColorDialog1->Color;
}
}][/code]

[lzh280]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int LineNo = Edit1->Text.ToIntDef(1);

    RichEdit1->SelStart = SendMessage(RichEdit1->Handle, EM_LINEINDEX, LineNo - 1, 0);
    RichEdit1->SelLength = RichEdit1->Lines->Strings[LineNo - 1.Length();

    if(ColorDialog1->Execute())
    {
        RichEdit1->SelAttributes->Color = ColorDialog1->Color;
    }
}

[我不懂电脑]

int n = 0;
for (int i=0; i <Memo-> Lines-> Count; i++)
{
s = Memo-> Lines-> Strings[i];
if (s[1] == '( ' && s[s.Length()]== ') ')
{
RichEdit-> SelStart = n;
RichEdit-> SelLength = n + s.Length();
RichEdit-> SelAttributes = ...
}
n += s.Length();
}
//基本是这样，没有调试。

[lianrouwupan]

[Quote=引用 1 楼 的回复:]
int n = 0;
for (int i=0; i <Memo-> Lines-> Count; i++)
{
s = Memo-> Lines-> Strings[i];
if (s[1] == '( ' && s[s.Length()]== ') ')
{
RichEdit-> SelStart = n;
RichEdit->……
[/Quote]

我要在EDIT1里输入行数。不是所有行数。

[lianrouwupan]

[Quote=引用 6 楼 的回复:]
HTML code


void __fastcall TForm1::Button1Click(TObject *Sender)
{
int LineNo = Edit1->Text.ToIntDef(1);

RichEdit1->SelStart = SendMessage(RichEdit1->Handle, EM_LINEINDEX, LineNo - 1,……
[/Quote]

RichEdit1->SelStart = SendMessage(RichEdit1->Handle, EM_LINEINDEX, LineNo - 1,0);

这里为什么要这样写，能不能解释一下？

[lianrouwupan]

[Quote=引用 6 楼 的回复:]
HTML code

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int LineNo = Edit1->Text.ToIntDef(1);

RichEdit1->SelStart = SendMessage(RichEdit1->Handle, EM_LINEINDEX, LineNo - 1, 0……
[/Quote]
如果就直接在EDIT1输入行号，然后选颜色。再在RICHEDIT1你输入字符，无论哪行都是我之前选中的颜色。何解？高手！