关于RichEdit中光标定位的问题？在线等待！！！

[chengxuejun2]

如何每次将光标放在Richedit末行的倒数第二行字符串的后面

Richedit.lines[0];fdsfdsf
Richedit.lines[1];fdsff
Richedit.lines[2];fdsf
Richedit.lines[3];123fdsfdsf中
Richedit.lines[4];空行


末行的倒数第二行也就是Richedit.lines[3];
我想将光标放在"123fdsfdsf中"后面,怎么写代码?
谢谢!

[stanely]

selstart

[王集鹄]

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.CaretPos := Point(Length(RichEdit1.Lines[3]), 3);
RichEdit1.SetFocus;
end;