Рефетека.ру / Информатика и програм-ие

Доклад: Организация функции ПОИСК в Tmemo

Организация функции ПОИСК в TMemo

Предводителев Сергей

Представленный ниже код я использовал при написании текстового редактора. Всё вроде работает.

Итак, на форме должны быть TMemo (Editor), TFindDialog (FindDialog) и TButton (Button).

Сначала напишем обработчик нажатия на кнопку:

procedure TForm1.ButtonClick(Sender: TObject);

begin

FindDialog.Execute; // Открытие диалога Поиск

end;

В свойствах дилога должны быть True опции frHideWholeWord (Скрыть в диалоге выбор флажка "Только слово целиком"), frHideMatchCase (Скрыть в диалоге выбор флажка "С учётом регистра") и frDown (по-умолчанию направление поиска вниз), все остальные опции должны быть False.

В Editor свойство HideSelection должно быть False.

Теперь напишем обраобтчик на нажатие кнопки Найти далее в диалоге Поиск.

Должны быть описаны следующие переменные и метки:

var

SelPos,X,i:integer;

s,textE:string;

label 1;

Для начала посмотрим, в каком направлении нужно искать и соответственно выберем текст в котором надо искать:

if frDown in FindDialog.Options

then Editor.SelStart:=Editor.SelStart+Editor.SelLength; // это для "поиск далее"

textE:=Editor.Text;

X:=Editor.SelStart+1;

if frDown in FindDialog.Options

then

textE:=Copy(textE,X,Length(textE)-X+1)

else

textE:=Copy(textE,0,X-1);

s:=FindDialog.FindText; // переменной s присваивается строка, которую нужно найти

Теперь напишем код собственно поиска:

if frDown in FindDialog.Options

then

{ код поиска вниз }

begin

SelPos := Pos(s,textE);

if SelPos > 0

then

begin

Editor.SelStart := SelPos + X - 2;

Editor.SelLength:=length(s);

end

else ShowMessage(pchar('Текст "'+ FindDialog.FindText+'" не найден.'));

end

else

{ код поиска вверх }

begin

for i:=length(textE)-length(s) downto 1 do

if copy(textE,i,length(s))=s

then

begin

Editor.SelStart := i-1;

Editor.SelLength:=Length(s);

goto 1;

end;

ShowMessage(pchar('Текст "'+ FindDialog.FindText+'" не найден.'));

1:

end;

Если строка найдена, то она выделяется, если нет, то выдаётся соответстующее сообщение.

Внимание! Запрещается перепечатка данной статьи или ее части без согласования с автором. Если вы хотите разместить эту статью на своем сайте или издать в печатном виде, свяжитесь с автором.

Список литературы

Для подготовки данной работы были использованы материалы с сайта http://andrey.nnov.ru/


Похожие работы:

  1. • Обучающе-контроллирующая система для подготовки ...
  2. • Среда программирования Delphi
  3. • Обзор Палитры Delphi
  4. • Работа с файлам в Дельфи
  5. • Анализ входного файла программы и вывод ...
  6. • Структура рабочей сети Internet
  7. • Моделирование работы цеха
  8. • Динамические структуры данных
  9. • TClientSocket & TServerSocket
  10. • Расчет стоимости пластиковых оконных конструкций и ...
  11. • Разработка программы на языке Borland Object Pascal ...
  12. • Компрессия информации и упорядочение дерева по ...
  13. • Расчетная методика проектирования программного ...
  14. • Автоматизированное Рабочее Место Отдела Кадров
  15. • Автоматизированная информационная система Учет экономической ...
  16. • Создание мини-игры "Магический квадрат"
  17. • Проектирование Базы Данных для коммерческого предприятия
  18. • Интерполяционный полином Лагранжа
  19. • Разработка программы приема и передачи сообщений в ...
Рефетека ру refoteka@gmail.com