| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

FindNext in RichEdit [D6, Win95/98]

SomeQ ©   (2002-09-01 10:08:00) 

Возможно для вас это и тривиально, но у меня чего-то никак не получается сделать FindNext текста без Find диалога. Пытаюсь через ф-ию pos и delete. Подскажите как или лучше сорсом..
И еще - нет ли в дельфи ф-ии, аналогичной pos, но чтобы можно было указывать начальную позицию, с которой необходимо искать вхождение?

---

Набережных С.   (2002-09-01 19:45:00) [1]

> SomeQ (01.09.02 10:08)


> И еще - нет ли в дельфи ф-ии, аналогичной pos, но чтобы
> можно было указывать начальную позицию, с которой необходимо
> искать вхождение?

Есть. Называется Pos.

S:String;
P:PChar;
i:integer;
....
S:="Proba 2/Proba 4";
P:=@S[6];
i:=Pos("Proba",P);
P:=@S[i+5];
ShowMessage(P);


---

Ivan61   (2002-09-01 15:10:00) [2]

Вот пример: В Memo1 ищется слово "поиск" и выделяется цветом:
procedure TForm1.Button1Click(Sender: TObject);
begin
if pos("поиск",memo1.Text)<>0 then
begin
Memo1.HideSelection:=false;
Memo1.SelStart:=pos("поиск",Memo1.Text)-1;
Memo1.SelLength:=Length("поиск");
end;
end;

---

Наверх