|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.11.2013, 17:57 | #1 |
Новичок
Джуниор
Регистрация: 11.11.2013
Сообщений: 1
|
Поиск в RichEdit
Помогите пожалуйста с поиском в RichEdit. Мне нужно чтобы он выделял все слова одновременно, но он выделяет только первое слово. Помогите пожалуйста!!!!!!:confused :
procedure TForm1.Button1Click(Sender: TObject); var s:string; i:integer; begin s:=RichEdit1.Text; for i:=0 to RichEdit1.Lines.Count-1 do begin if pos(edit1.Text, s)<>0 then begin RichEdit1.SetFocus(); RichEdit1.SelStart:=pos(edit1.Text, s)-1; RichEdit1.SelLength:=length(edit1.T ext); RichEdit1.SelText; end; end; end; |
28.11.2013, 18:03 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Не может RichEdit выделять несколько фрагментов. Если очень надо, то раскрашивать другим цветом найденные, но это совсем другая история
ADD Код поиска фрагментов в топку
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Последний раз редактировалось Аватар; 28.11.2013 в 18:08. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
поиск в richedit | betirsolt | Общие вопросы Delphi | 7 | 19.05.2011 10:42 |
Поиск изображения в RichEdit | artemavd | Общие вопросы Delphi | 6 | 23.04.2011 09:45 |
Поиск текста в RichEdit | Kozlopiton | Общие вопросы Delphi | 4 | 29.01.2011 19:52 |
Поиск в RichEdit | j0di | Общие вопросы Delphi | 3 | 12.09.2010 09:18 |
поиск в RichEdit | mauar | Общие вопросы Delphi | 2 | 05.05.2008 14:36 |