Категория
Информатика
Тип
реферат
Страницы
2 стр.
Дата
11.04.2009
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
18449.zip — 3.77 kb
  • organizacija-funkcii-poisk-v-tmemo_18449_1.rtf — 18.59 Kb
  • Readme_docus.me.txt — 125 Bytes
Рейтинг
10  из 10
Оценок
1
Оцените работу
Хорошо  или  Плохо


Текст работы

Организация функции ПОИСК в 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.;
X:=Editor.SelStart+1;
if frDown in FindDialog.Options
then
textE:=Copy(textE,X,Length(textE)-X+1)
else
text E:=Copy(textE,0,X-1);
s:=FindDialog.Find; // переменной s присваивается строка , которую нужно найти
Теперь напишем код собственно поиска:
if frDown in FindDialog.Options
then
код поиска вниз
begin
SelPos := Pos(s,textE);



Ваше мнение



CAPTCHA