Циклический обход символов в TRichEdit в Delphi для изменения цвета

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

Вопрос обхода символов в многострочном текстовом редакторе TRichEdit в Delphi является актуальным для разработчиков, работающих с цветовыми подсветками и форматированием текста. В данной статье мы рассмотрим наиболее простой и эффективный способ циклического обхода видимых символов в TRichEdit, исключая непечатаемые символы, такие как символ перевода строки (#13), и изменение цвета каждого символа в соответствии с расчетами.

Проблема

При работе с компонентом TRichEdit в Delphi 10.3.3 может возникнуть необходимость циклического обхода всех видимых символов текста для выполнения различных операций, например, изменения цвета символов. Существующий подход, который был опробован разработчиком, включал в себя создание функции GetCharByIndex, которая возвращала символ по индексу. Однако, использование дополнительного условия if c = #13 then CONTINUE; для пропуска непечатаемых символов и наличие отдельных вычислений длины текста без учера строк, указывают на возможное наличие более оптимизированного решения.

Альтернативный ответ

В качестве альтернативного подхода предлагается использование цикла for с использованием итерации по строке RichEdit1.Text, что позволяет избежать необходимости определения отдельной функции для получения символов и упрощает код. В коде используется функционал ord, который возвращает числовое представление символа, и проверка на видимость символа, исключая непечатаемые символы и символы с кодом вне диапазона печатных символов (32-126 и 161-255 в кодировке ASCII).

var
  i: Integer;
  c: Char;
  cord: Integer;
...
i := -1;
for c in RichEdit1.Text do
begin
  Inc(i);
  cord := ord(c);
  if (cord = 13) then
    Dec(i);
  if (cord >= 32) and (not ((cord > 126) and (cord < 161))) then
  begin
    // Действия, например, изменение цвета символа:
    RichEdit1.SelStart := i;
    RichEdit1.SelLength := 1;
    if RichEdit1.SelAttributes.Color = clGreen then
      RichEdit1.SelAttributes.Color := clRed
    else if RichEdit1.SelAttributes.Color = clRed then
      RichEdit1.SelAttributes.Color := clGreen;
  end;
end;

Комментарии и замечания

Некоторые пользователи отмечают, что предложенный способ может быть неоптимальным, особенно для крупных объемов текста. Однако, другие разработчики отмечают, что для небольших задач предложенный вариант может быть достаточным и достаточно быстрым (измеренное время выполнения для текста из 228 символов составляет 0.025 секунд).

Также в обсуждении упоминается, что для более сложных задач, связанных с подсветкой синтаксиса и сравнением текстов, можно использовать специализированные компоненты, такие как SynEdit или Scintilla для Delphi, которые разработаны для более эффективной работы с текстом и его форматированием.

Вывод

Приведенный пример демонстрирует, как можно просто и эффективно реализовать циклический обход видимых символов в TRichEdit, что позволяет изменять атрибуты, такие как цвет, для каждого символа в зависимости от заданных условий. Использование этого метода может быть полезным для разработчиков, работающих с текстовыми редакторами в среде Delphi.

Создано по материалам из источника по ссылке.

Обход символов в многострочном текстовом редакторе TRichEdit в Delphi для изменения цвета и форматирования текста, исключая непечатаемые символы.

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

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

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