如何设置光标在TMemo打开文本中位置!

Question

如何设置光标在TMemo打开文本中位置!例如设置光标中的某一行

Answer 1

memo不行，用RichEdit
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=4;
RichEdit1.SetFocus;
RichEdit1.SelStart := SendMessage(RichEdit1.Handle, EM_LINEINDEX, i, 0);
end;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
  crCount,i : integer;
begin
  crCount := 1;
  for i := 1 to length (memo1.Text) do
    if memo1.Text[i] = #10 then
    begin
      inc (crcount);
      if crCount = 3 then     // line 3
      begin
        memo1.SelStart := i;
        memo1.SetFocus;
        break;
      end;
    end;
end;