Delphi 3 и создание приложений баз данных

       

Поиск фрагмента текста


Метод 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;



Содержание раздела