delphi memo 通过行号 定位 指定行

delphi memo 通过行号 定位 指定行

procedure TForm1.Button1Click(Sender: TObject);
var
  LineNumber, StartPos, LineLength: Integer;
begin
  LineNumber := 2;  // The line number to select (0-based)

  // Calculate the start position of the line
  StartPos := Memo1.Perform(EM_LINEINDEX, LineNumber, 0);

  // Calculate the length of the line
  LineLength := Memo1.Perform(EM_LINELENGTH, StartPos, 0);

  // Select the line
  Memo1.SelStart := StartPos;
  Memo1.SelLength := LineLength;

  // Set focus to the memo to show the selected line
  Memo1.SetFocus;
end;