Как выделить в RichEdit 4 строки

Delphi , Компоненты и Классы , TMemo и TRichEdit

Строки нумеруются с 0!

with richedit1 do
begin
  selstart:=FindText(lines[3],0,length(text), [stWholeWord]);
  sellength:=length(lines[3]);
  selattributes.color:=clBlue;
end;

работает, если строка уникальная,
иначе можно - вычислять начало

sstart := 0;
for i := 0 to numstr - 1 do
  sstart := sstart + length(lines[i]) + 2; // numstr=3
selstart := sstart; // для 4 строки

Контроль RichEdit! Для подчеркивания четвертой строки в контроле RichEdit можно использовать метод FindText и установить начало и длину выбора соответственно. Вот улучшенная версия вашего кода:

with richedit1 do
begin
   // Найдите четвертую строку (помните, что строки индексируются с 0)
  sstart := 0;
  for i := 0 to numstr - 1 do
    sstart := sstart + Length(lines[i]) + 2;  // numstr = 3

   // Аккуратно установите позицию начала, учитывая любое пробельное пространство в начале строки
  selstart := FindText( lines[3], 0, Length(text) );

   // Установите цвет выбора в синий
  selattributes.color := clBlue;
end;

Вот что делает каждый шаг: 1. sstart инициализируется в 0, которое станет началом поиска. 2. Цикл проходит через строки (индексация с 0) и рассчитывает общую длину текста до текущей строки, плюс 2 символа для символов конца строки (\r\n). Это дает нам правильную позицию следующей строки. 3. Мы используем метод FindText для поиска четвертой строки (индекс 3). Первый аргумент - текст для поиска (весь текст), второй аргумент - начальная позиция (0-основанная). 4. Наконец, мы устанавливаем начало выбора (selstart) в результат метода FindText. 5. Мы корректируем длину выбора, установив ее в ту же величину, что и длина строки.

Обратите внимание, что этот код предполагает, что строки разделены символами конца строки (\r\n). Если ваш контрол RichEdit использует другой делитель, вам нужно будет изменить расчет соответствующим образом.

В отношении альтернативного решения, если вы хотите подчеркнуть несколько строк или диапазон текста, можно использовать метод SelText вместо установки индивидуальных номеров строк. Например:

selstart := ...;  // установите начало позиции как раньше
selend := selstart + Length(lines[3]);  // корректируйте конец позиции соответствующим образом
selattributes.color := clBlue;

Это подчеркнет диапазон текста, начинающийся с selstart и заканчивающийся selend.

В статье описывается несколько способов выделения четвёртой строки в RichEdit 4, включая использование функции FindText и цикла для нахождения начала этой строки.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TMemo и TRichEdit ::