Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 09.02.2017
Сообщений: 16
1

Поиск слова в richedit

26.09.2017, 12:07. Показов 2999. Ответов 8
Метки нет (Все метки)

Здравствуйте ! Помогите пожалуйста с программой, никак не могу реализовать следующее: ввести слово в edit, далее поиск введённого слова в компоненте richedit и подсветка найденного слова(слов) любым цветом. Помогите пожалуйста мне с данным вопросом. Заранее Очень благодарна !
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.09.2017, 12:07
Ответы с готовыми решениями:

Замена слова в RichEdit
У меня есть Edit1 куда мы будем вводить слово для поиска слова из текста в RichEdit, и есть Edit2...

Поиск и сравнение слов в RichEdit
На форме лежит RichEdit, в котором: Bla-bla-bla Bla-bla-bla Bla-bla-bla Start ...

RichEdit. Удаление слова, строки, абзаца под курсором
Собственно задание, пишем текстовый редактор, с помощью RichEdit. В дополнение ко всему...

Поиск по richedit не точный, что делать?
У меня есть RichEdit с текстом из rtf файла, и Edit через которого я осуществляю поиск текста по...

8
Модератор
63726 / 47278 / 32585
Регистрация: 18.05.2008
Сообщений: 114,595
26.09.2017, 15:04 2
Слова в тексте чем разделены? А то пусть ищем слово сто, и будет выделять эти 3 буквы в словах типа сторож, пусто и т.д.
0
Эксперт Pascal/Delphi
4690 / 2675 / 834
Регистрация: 04.10.2012
Сообщений: 9,729
26.09.2017, 15:49 3
Лучший ответ Сообщение было отмечено D1973 как решение

Решение

Mariya_787, вот так можно реализовать

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure MarkAllWords(RE:TRichEdit; TheWord:String; Color:TColor);
var
i, CharPos, CharPos2, noChars: Integer;
begin
CharPos := 0;
noChars := 0;
for i := 0 to Pred(RE.Lines.Count) do
noChars := noChars + Length(RE.Lines[i]);
repeat
CharPos2 := RE.FindText(TheWord, CharPos, noChars, [stWholeWord]);
CharPos := CharPos2+1;
RE.SelStart := CharPos2;
RE.SelLength := Length(TheWord);
RE.SelAttributes.Color := Color;
until charpos = 0;
end;
Пример использования. Цвет выделения текста можете задать другой.
Delphi
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
MarkAllWords(RichEdit1, Edit1.Text, clRed); //цвет шрифта -красный
end;
 
end.
1
0 / 0 / 0
Регистрация: 09.02.2017
Сообщений: 16
26.09.2017, 19:55  [ТС] 4
Слова как в обычном тексте,предложения разделены точками. В предложениях могут присутствовать знаки препинания.

Добавлено через 13 минут
Спасибо большое за ответы, но код который написан выше я пробовала и он работает не на всей ширине окна, т.е. не по всей длине строки почему-то ???? не пойму даже в чём дело то (
0
Эксперт Pascal/Delphi
4690 / 2675 / 834
Регистрация: 04.10.2012
Сообщений: 9,729
26.09.2017, 20:40 5
Mariya_787, все он прекрасно ищет и работает
0
Эксперт Pascal/Delphi
4690 / 2675 / 834
Регистрация: 04.10.2012
Сообщений: 9,729
26.09.2017, 21:04 6
Mariya_787, что я делаю не так ?
0
Миниатюры
Поиск слова в richedit  
0 / 0 / 0
Регистрация: 09.02.2017
Сообщений: 16
26.09.2017, 22:40  [ТС] 7
Всё стало работать после долгих тестов. Не знаю почему сразу не работало как хотелось бы, но сейчас всё нормально работает. Спасибо Всем большое за помощь ! Очень Вам благодарна !
0
Эксперт Pascal/Delphi
4690 / 2675 / 834
Регистрация: 04.10.2012
Сообщений: 9,729
27.09.2017, 09:15 8
Цитата Сообщение от Mariya_787 Посмотреть сообщение
стало работать после долгих тестов
В долгих тестах в данном случае нет необходимости.
Цитата Сообщение от Mariya_787 Посмотреть сообщение
нормально работает
что и требовалось доказать
0
0 / 0 / 0
Регистрация: 09.02.2017
Сообщений: 16
27.09.2017, 13:15  [ТС] 9
Спасибо Вам за помощь ! Очень благодарна !
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.09.2017, 13:15

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Поиск файла по содержимому сохраненному из RichEdit
Всем привет. Сохраняю текст из RichEdit в файл. Он сохраняется в таком виде Я так понимаю тут...

Поиск слова в RichEdit
Как найти слово, например введенное в Edit? спаисибо

Поиск в RichEdit
Здравствуйте! Нужна помощь вот в чем! Организовал поиск по RichEdit'у с выделением все четко!...

Поиск в RichEdit
Здраствуйте!!! Вопрос в следущем: Хочу с одного RichEdit3 сверять текст с RichEdit2 при условии...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.