关于Tmemo的问题

Question

我想在TMEMO控件中加滚动条，或我想定位到任意一行，如何做，先谢谢了！

Answer 1

//定位到第5行
  memo1.SetFocus;
  memo1.SelStart:=length(copy(memo1.Text,1,
                      pos(memo1.Lines[4],memo1.Text)-1));
  memo1.SelLength:=length(memo1.Lines[5]);

Answer 2

测试通过
procedure TForm1.Button1Click(Sender: TObject);
begin
  //定位到第5行
  memo1.SetFocus;
  memo1.SelStart:=length(copy(memo1.Text,1,
                      pos(memo1.Lines[4],memo1.Text)-1));
  memo1.SelLength:=length(memo1.Lines[5]);
end;