Скачать: CL | DM;

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


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c