FindNext in RichEdit

← →
SomeQ (2002-09-01 10:08) [0]

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

← →
Ivan61 (2002-09-01 15:10) [1]

Вот пример: В 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;

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

> 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);

FindNext in RichEdit Найти похожие ветки