RichEdit

[StartMis]

Помагите Мне нужно произвести поиск в поле RichEdit выделить нужное слово красным цветом после чего снять выделение и искать дальше

[Dj_smart]

А ведь существует поиск . Наберите "richEdit поиск".

[WOLFak]

мне тож интерсно как там цвет изменять? определенного символа или строки

[mihali4]

Если отбросить ложную скромность и попытаться использовать свой мозг хотя бы на полпроцента, можно без труда выяснить, что у RichEdit есть свойство RichEdit.SelAttributes, а у него, в свою очередь, свойство Color...
И уж совсем не составляет труда сообразить присвоить этому свойству нужный цвет:
RichEdit1.SelAttributes.Color:=clRe d;
Голова ведь не только для того, чтобы кушать...

[StartMis]

С выделением я давно разобрался но как найти нужное слово выделить его применить RichEdit1.SelAttributes.Color:=clRe d; через некоторое время убрать RichEdit1.SelAttributes.Color:=clRe d; и далее проделать все это с другими словами если такие имеються

[mihali4]

В дополнение к вышесказанному:
у RichEdit, как и у многих компонентов, умеющих работать с текстом, есть еще свойства SelStart, SelLength и много других, о которых (опять-таки без труда) можно узнать из встроенного хэлпа Дельфи.
А "убрать" красный цвет означает тоже простое до смешного - назначить тот цвет, который был до назначения красного.
Я не очень сложные термины использую?
А про поиск в тексте на форуме уже столько написано, что я бы просто постыдился спрашивать.

[StartMis]

Да нет на форуме того чего я спрашиваю мне надо чтобы поиск шел дальше а он находит один фрагмент текста и встает на нем и каждый последующий поиск должен производится через определенное время

[mihali4]

каждый последующий поиск должен производится через определенное время

А почему так? Ведь обычно в текстовом редакторе организуется окошко для ввода слова, которое нужно искать. И там есть кнопка "Найти далее"... Так что время вроде бы ни при чем.
Чем ищете? Функцией POS ? А есть еще POSEX, она лучше подойдет.
Кстати, некоторые техники можете позаимствовать в демках Borland\Delphi7\Demos\Doc\TextEdit и Borland\Delphi7\Demos\RichEdit.
Мне кажется, что это вам поможет...

[StartMis]

var k:integer;
begin
with RichEdit1 do
begin
k:=pos (edit1.Text,text);
if k>0 then
begin
RichEdit1.HideSelection:=false;
RichEdit1.SelStart:=k-1;
RichEdit1.SelLength:=Length(edit1.T ext)
end
end;
end;

[StartMis]

POSEX и как ее использовать.