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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

10
План примера 4
1-4. Организация поиска и выделения нужного слова.
5-7. Настройка элементов в окне поиска.
8-14. Организация поиска и замены нужного слова.
15-17. Вывод информации о программе.
Пример работы 4: Подсказка
1. Поместите на форму компонент FindDialog
Закладка Dialogs
2. Создайте процедуру
обработки пункта меню
Поиск⏐Найти…
procedure TMainform.N20Click(…);
begin
FindDialog1.Execute;
end;
3. Создайте процедуру обработки
события
OnFind компонента FindDia-
log1
Используйте созданный
Delphi шаблон
и код обработчика, написанного ни-
же
procedure TMainform.FindDialog1Find(Sender: TObject);
var Found:integer; (* позиция поиска *)
FoundLen:integer; (* длина образца поиска *)
begin
{Обработка выбора радиокнопки Поиск вверх в окне поиска}
with Sender as TFindDialog do
begin
if not(frDown in Options)
then ShowMessage('Поиск организован только вниз!');
end;
(* Определение образца поиска *)
ToFind:=FindDialog1.FindText;
(* Определение длины *)
FoundLen:=Length(ToFind);
(*Если поиск только начат, то в
переменную FindIn перепи-
сывается текст из компонента Memo1 и текущая позиция при-
нимает значение 1*)
If index=0
then begin
FindIn:=Mainform.Memo1.Text;
index:=1
end;
(* Определение номера символа, с которого образец поиска
встречается в тексте *)
Found:=Pos(ToFind,FindIn);
(* При ненулевой позиции поиска происходит выделение най-
денного текста *)
If Found>0
Then begin
(* В переменную FindIn переписывается текст из
компонента
Memo1 *)
FindIn:=Mainform.Memo1.Text;

Страницы