Предводителев Сергей
Представленный ниже код я использовал при написании текстового редактора. Всё вроде работает.
Итак, на форме должны быть 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/
Похожие работы
... не выявлено, если область вывода лексических ошибок пуста, а для синтаксических - содержит текст "Ошибок нет". Внешний вид окна программы представлен на рис.7. 4.1 Результаты тестирования двухфазного компилятора полностью совпадают с результатами тестирования лексического и синтаксического анализатора по отдельности, проведённых последовательно. рис.7. Внешний вид окна программы ...
... рехэширования с помощью произведения; б) – Блок-схема функции поиска идентификатора; в) – Блок-схема функции добавления идентификатора 2 Проектирование лексического анализатора 2.1 Назначение лексического анализатора Лексический анализатор (или сканер) – это часть-компилятора, которая читает литеры программы на исходном языке и строит из них слова (лексемы) исходного языка. На вход ...
... инструмент полезен, когда программа находится в опытной эксплуатации - можно получить важную информацию при крушении системы. 4. Стандартные компоненты Для дальнейшего знакомства со средой программирования Delphi потребуется рассказать о составе первой страницы Палитры Компонент. На первой странице Палитры Компонент размещены 14 объектов (рис.8) определенно важных для ...
... создавать эскизы окон для дальнейшей работы с ними. При выборе пункта меню «Расчет стоимости», на экране появляется окно позволяющее пользователю производить расчет стоимости пластиковых оконных конструкций. При выборе пункта меню «Конвертор валют», на экране появляется окно позволяющее пользователю конвертировать, полученный при расчете стоимости, результат из одной валюты в другую. Пункт меню ...
0 комментариев