11.10.5. Поиск фрагмента текста
Метод function FindText(const SearchStr: string; StartPos,
Length: Integer; Options: TSearchTypes): Integer; ищет в тексте
комментария строку SearchStr. Поиск
производится во фрагменте текста начиная
с позиции StartPos и заканчивая StartPos + Length
-1. Первый символ текста комментария
имеет номер 0.
Если поиск успешен, возвращается номер
символа, начиная с которого SearchStr входит
в текст комментария. В противном случае
возвращается -1.
Параметр Options представляет собой
множество, в который могут входить такие
элементы:
stWholeWord- поиск ведется целыми;
stMatchCase - игнорируется разница в высоте
букв.
Пример. Произвести поиск во всем тексте
DBRichEdit1. Поисковая строка находится в
Edit1.Text. Если фрагмент найден, выделить
его.
procedure TForm1.FindButtonClick(Sender: TObject) ;
begin
WITH DBRichEditl do begin
SelStart := FindText(Editl.Text,0,GetTextLen,[]) ;
SelLength := Length(Edit1.Text) ;
END;//with
end;
