Delphi. Страница Dialogs. Васильев В.В - 11 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

11
(* Из FindIn удаляются символы от начала текста до послед-
него символа найденного слова *)
delete(FindIn,1,index+Found+FoundLen-2);
(* Окно формы располагается поверх всех остальных окон *)
Mainform.BringToFront;
(* Фокус устанавливается на компонент Memo1 *)
Mainform.ActiveControl:=Memo1;
(* Определяется номер первого символа в выделении *)
Memo1.SelStart:=Index+Found-2;
(* Задается длина выделенного участка текста *)
Memo1.SelLength:=FoundLen;
(* Определяется номер символа, с которого будет
продолжен
поиск *)
Index:=index+Found+FoundLen-1
End {Then}
else
begin
MessageDlg('Не удается найти '+ToFind,mtInformation,
[mbOK],0);
index:=0 (* обнуляется текущая позиция поиска *)
end;
end;
4. Запустите программу на исполнение. Откройте какой-
нибудь файл. Попробуйте найти в тексте заданное слово. По-
меняйте направление поиска.
Run⏐Run
Задание: исправьте обработчик OnFind компонента FindDialog1
так, чтобы можно было менять направление поиска.
Свойство Options компонента FindDialog представляет собой множест-
во, элементы которого отвечают за характеристики диалогового окна. На-
пример, если задан параметр frDown, то поиск идет по тексту вниз. При вы-
боре радиокнопки Поиск вверх в диалоговом окне поиска из
множества
Options автоматически исключается элемент frDown и истинным становится
событие not(frDown in Options).
Чтобы убрать из диалогового окна переключатели направления поис-
ка, во множество Options нужно включить параметр frHideUpDown. Если
задан параметр frHideWholeWord, то не выводится выключатель поиска
только целых слов. При заданном параметре frHideMatchCase не выводится
выключатель учета различия прописных
и строчных букв.
При включении поиска только целых слов, во множество Options до-
бавляется элемент frWholeWord, при включении учета различия прописных
и строчных букв – параметр frMatchCase.
5. Уберите из диа-
логового окна по-
иска выключатели
поиска только це-
лых слов и учета
Допишите обработчик события OnCreate формы
Procedure TMainform.FormCreate(…);
begin
file_name:='Безымянный.txt';
caption:=file_name+' - Текстовый
редактор';

Страницы