Найти и раскрасить нужное слово в RichEdit

Posted by obzor under Delphi

Как можно в RichEdit найти и раскрасить нужное слово?

Аватар

Pos или PosEx для поиска в Text
SelStart и SelLength для выделения найденного
SelAttributes для изменения цвета выделенного

NIKOLAYY2

Ну вот еще готовый пример, приложение раскрашивает английские символы в тексте, отталкивайся от него.

var
  i: integer;
begin
  for i := 1 to Length(RichEdit1.Text) do
    case ord(RichEdit1.Text[ i ]) of
      65..90, 97..122:
        begin
          RichEdit1.SelStart := i - 1;
          RichEdit1.SelLength := 1;
          RichEdit1.SelAttributes.Color := clRed;
        end;
    end;
end;

тема на форуме

Похожие статьи

• Вставка символа Unicode в RichEdit в Delphi 7
• RichEdit и выгрузка в RTF-файл (добавление в конец файла)
• Как вставить перевод строки #10#13 в текст RichEdit?
• Координаты коретки RichEdit
• Верхний и нижний отступ RichEdit
• После загрузки файла в RichEdit подобрать ширину по содержимому
• Выделить строку RichEdit жирным
• Как сохранить текст из 4х RichEdit в файл?
• Вставить TBitMap в RichEdit
• Преобразовать текст в поток и обратно