Поиск фрагмента текста
Метод 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;
