Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

//именем которое ввели в окне сохранения файла

memo1.Clear(); //Очистить компонент Memo от предыдущего текста

end; s:=savedialog1.FileName+'.not'; // занести в переменную S имя файла (для открытия файла, когда программу вновь запустят и для сохранения в когда программа работает).
Настроим фильтр файлов (типы файлов в которые можно сохранять файлы), для это в SaveDialog1 настроим свойство Filter: Filter Name: ‘Файлы программы’;
Filter: ‘*.not’.

1. “Открыть”

Для открытия файлов в Delphi есть компонент OpenDialog. Перетащим этот компонент с закладки Dialogs на форму и сразу пропишем его свойство Filter так как и в SaveDialog. Заходим Файл|Открыть и вставляем этот код, после слова Begin: if opendialog1.Execute then // Открыть окно открытия файла memo1.Lines.LoadFromFile(Opendialog1.FileName); // Загрузить в Memo1 файл
S:=OpenDialog1.FileName; // занести в переменную S - имя файла, для открытия когда

//программу вновь запустят и для сохранения изменений в процессе выполнения

//программы

2. “Сохранить”

Вставить этот код в свойство OnClick кнопки: memo1.Lines.SaveToFile(s); // сохранить содержания компонента Memo1 в файл с

//именем которого хранится в переменной S

3. “Экспорт данных…”

Для этого нужен ещё один компонент SaveDialog и так как файл будет сохраняться в «Текстовый документ», то в свойстве Filter, компонента
SaveDialog2, нужно ввести: Filter Name: ‘Текстовый документ’, а Filter:
‘*.txt’. Теперь вставить следующий код в кнопку: if SaveDialog2.Execute then // запустить окно сохранения файла

- 9 -

memo1.Lines.SaveToFile(Savedialog2.FileName+'.txt');//сохранить файл с расширением

// txt

4. “Выход”

Для закрытия программы в Delphi есть один оператор CLOSE. Вставим этот оператор в кнопку.

Настройка меню «Файл» - закончена.

Меню «Правка»

1. “Найти”

Для поиска нужного текста в Delphi есть компонент FindDialog. Перенесём этот компонент с закладки Dialogs.
Вставляем следующий код в OnClick кнопки:
Spos:=memo1.SelStart; //Запоминание позиции курсора with finddialog1 do begin
{Начальное значение поиска текста, выделенный в Мемо} findtext:=memo1.SelText;
// позиционирование окна диалога внизу Memo position:=point(mainform.Left,mainform.Top+memo1.Top+memo1.Height) ;
// удолнеия из диалога кнопок “Вверх”, “Вниз”, “Только слово цылеком” options:=options + [frhideupdown,frhidewholeword] ; execute; //запуск диалога end; end;
Теперь в OnFind компонента FindDialog1 вставляем следующий код: with finddialog1 do begin if frmatchcase in options
//поиск с учётом регистра then
Memo1.SelStart:=pos(findtext,copy(memo1.Lines.Text,spos+1,Length(memo1.Lines
.text)))+spos-1 else
//поиск без учета регистра
Memo1.SelStart:=pos(ansilowercase(findtext),ansilowercase(copy(memo1.Lines.T ext,spos+1,Length(memo1.Lines.text))))+spos-1; if memo1.SelStart>=spos then begin

//выделение найденного текста memo1.SelLength:=Length(findtext);

//изменение начальной позиции поиска spos:=memo1.SelStart + memo1.SelLength+1; end else

- 10 - if messagedlg('Текст"'+findtext+'"ненайден',mtconfirmation,[mbok],0) mrok then closedialog; memo1.SetFocus; end;
Теперь нужно объявить переменную Spos, вверху окна редактора кода нужно найти оператор VAR, перед всеми процедурами и функциями и написать после него Spos:integer;
Переменная Spos сохраняет позицию, начиная с которой надо проводить поиск.

2. “Отменить”

Рекомендуем скачать другие рефераты по теме: курсовая работа по менеджменту, реферат факторы.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата