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

UptoLike

12
различия между
прописными и
строчными буква-
ми
with FindDialog1 do
Options:=
Options+[frHideMatchCase,frHideWholeWord];
end
;
6. Запустите программу на исполнение. Убедитесь, что в
окне поиска нет выключателей
RunRun
7. Сохраните результаты работы
FileSave
Задание: добавьте в проект возможность поиска только целых
слов и возможность учета различий между прописными и строчными
буквами.
8. Поместите на форму компонент ReplaceDialog
Закладка
Dialogs
9. Уберите из диа-
логового окна по-
иска и замены вы-
ключатели поиска
только целых слов и
учета различия ме-
жду прописными и
строчными буквами
Допишите обработчик события OnCreate формы
Procedure TMainform.FormCreate(…);
begin
file_name:='Безымянный.txt';
caption:=file_name+' - Текстовый
редактор';
with FindDialog1 do
Options:=Options+[frHideMatchCase,
frHideWholeWord];
with ReplaceDialog1 do
Options:= Options+[ frHideMatchCase,
frHideWholeWord];
end;
10. Создайте проце-
дуру обработки
пункта меню
ПоискЗаменить
procedure TMainform.N21Click(Sender: TOb-
ject);
begin
ReplaceDialog1.Execute;
end;
В диалоговом окне поиска и замены есть командные кнопки Найти,
Заменить и Заменить все. Нажатие кнопки Найти вызывает событие OnFind
для компонента ReplaceDialog. Нажатие кнопки Заменить - событие OnRe-
place. При выборе кнопки Заменить все во множество Options компонента
ReplaceDialog добавляется элемент frReplaceAll.
11. Создайте процедуру обработки
события
OnFind компонента Re-
placeDialog1
Используйте созданный
Delphi шаблон
и код обработчика, написанного ни-
же
procedure TMainform.ReplaceDialog1Find(Sender: TObject);
var Found:integer; (* позиция поиска *)
FoundLen,ReplaceLen:integer;
(* длина образца поиска, длина образца замены *)
begin
(* Определение образца поиска *)
ToFind:=ReplaceDialog1.FindText;
(* Определение длины образца поиска *)
FoundLen:=Length(ToFind);