Richedit Delphi Выделить Строку

RichEdit в Delphi позволяет выделять как отдельные символы, так и блоки текста. Выделение происходит через свойство SelStart и SelLength.

Для выделения всей строки в RichEdit можно использовать следующий код:

RichEdit1.SelStart := RichEdit1.Perform(EM_LINEINDEX, RichEdit1.CaretPos.Y, 0);
RichEdit1.SelLength := Length(RichEdit1.Lines[RichEdit1.CaretPos.Y]);

Для выделения нескольких строк можно использовать следующий код:

var
StartLine, EndLine: Integer;
begin
StartLine := RichEdit1.Perform(EM_LINEFROMCHAR, RichEdit1.SelStart, 0);
EndLine := RichEdit1.Perform(EM_LINEFROMCHAR, RichEdit1.SelStart + RichEdit1.SelLength, 0);
RichEdit1.SelStart := RichEdit1.Perform(EM_LINEINDEX, StartLine, 0);
RichEdit1.SelLength := RichEdit1.Perform(EM_LINEINDEX, EndLine + 1, 0) - RichEdit1.SelStart;
end;

Этот код выделяет все строки от начальной до конечной.