Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.04.2015, 13:58   #1
SASFM
Форумчанин
 
Аватар для SASFM
 
Регистрация: 26.03.2015
Сообщений: 191
По умолчанию Найти и раскрасит нужного слово в RichEdit

Всем привет, скажите пожалуйста, как можно в ричэдит найти и раскрасит нужного слово?
Моя родина там, где мой компьютер
SASFM вне форума Ответить с цитированием
Старый 05.04.2015, 14:03   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Pos или PosEx для поиска в Text
SelStart и SelLength для выделения найденного
SelAttributes для изменения цвета выделенного
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 05.04.2015, 17:02   #3
NIKOLAYY2
Форумчанин
 
Регистрация: 23.12.2014
Сообщений: 220
По умолчанию

Ну вот еще готовый пример, приложение раскрашивает английские символы в тексте, отталкивайся от него.
Код:
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;
Изображения
Тип файла: jpg 1111.jpg (17.9 Кб, 78 просмотров)
NIKOLAYY2 вне форума Ответить с цитированием
Старый 05.04.2015, 21:09   #4
SASFM
Форумчанин
 
Аватар для SASFM
 
Регистрация: 26.03.2015
Сообщений: 191
По умолчанию

Спасибо братаны. Вы как всегда вовремя.
Моя родина там, где мой компьютер
SASFM вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Пять задач (Найти все трехзначные числа,Массивы и Найти самое длинное симметричное слово)VBA Nod123 Помощь студентам 0 24.12.2014 01:30
найти слово из текста serres SQL, базы данных 2 09.04.2010 09:41
Подсветка найденного слово в RichEdit`e NirvaN Помощь студентам 2 13.06.2009 17:31
Как изменить цвет текста на всей строке в RichEdit, если строка содержит определенное слово?? IIpopoK Общие вопросы Delphi 0 22.06.2008 07:57
Раскрасит DBGRID xes БД в Delphi 9 17.05.2008 13:41