Поиск текста в RichEdit - Общие вопросы Delphi

Kozlopiton · 29.01.2011, 18:32

В RichEdit дан текст. Искомые символы вводятся в Edit. По нажатию кнопки
осуществляется поиск. В результате в RichEdit выделяются искомые символы. Прошу помочь мне в этом.

vovk · 29.01.2011, 18:55

Код:

var
i:Integer;
begin
i:=  Pos(Edit1.Text,RichEdit1.Lines.Text)-1;
if i>0 THen
begin
 RichEdit1.SelStart:=i;
 RichEdit1.SelLength:=length(edit1.Text);
 Self.FocusControl(RichEdit1);
end;

Kozlopiton · 29.01.2011, 19:27

Оказалось проще чем думал. Спасибо, помогло!

vovk · 29.01.2011, 19:32

извините там ошибочка не с того символа выделение, надо так

Код:

i:=  Pos(Edit1.Text,RichEdit1.Lines.Text)-1;

выше поправил

Kozlopiton · 29.01.2011, 19:52

Я заметил. Иправил уже

29.01.2011, 18:32	#1
Kozlopiton Регистрация: 29.01.2011 Сообщений: 4	Поиск текста в RichEdit В RichEdit дан текст. Искомые символы вводятся в Edit. По нажатию кнопки осуществляется поиск. В результате в RichEdit выделяются искомые символы. Прошу помочь мне в этом.

29.01.2011, 18:55	#2
vovk != Участник клуба Регистрация: 08.09.2008 Сообщений: 1,751	Код: `var i:Integer; begin i:= Pos(Edit1.Text,RichEdit1.Lines.Text)-1; if i>0 THen begin RichEdit1.SelStart:=i; RichEdit1.SelLength:=length(edit1.Text); Self.FocusControl(RichEdit1); end;` Последний раз редактировалось vovk; 29.01.2011 в 19:32.

29.01.2011, 19:32	#4
vovk != Участник клуба Регистрация: 08.09.2008 Сообщений: 1,751	извините там ошибочка не с того символа выделение, надо так Код: `i:= Pos(Edit1.Text,RichEdit1.Lines.Text)-1;` выше поправил

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
RichEdit и удаление текста	kuzmich	Общие вопросы Delphi	3	19.12.2010 22:59
Цвет текста в Richedit	prod87	Общие вопросы Delphi	1	10.07.2010 20:51
Вставка текста в RichEdit	NoName_emaNoN	Компоненты Delphi	4	03.05.2008 12:12
поиск и замена текста в RichEdit	Vasya	Помощь студентам	11	16.03.2007 06:48

29.01.2011, 19:27	#3
Kozlopiton Регистрация: 29.01.2011 Сообщений: 4	Оказалось проще чем думал. Спасибо, помогло!

29.01.2011, 19:52	#5
Kozlopiton Регистрация: 29.01.2011 Сообщений: 4	Я заметил. Иправил уже