Записная книжка на Delphi 7 — страница 6

  • Просмотров 9606
  • Скачиваний 670
  • Размер файла 147
    Кб

разместим её ближе к концу CoolBar’a. На этом создание интерфейса главной формы закончено можно скомпилировать и запустить проект, клавишей F9, должно быть похоже на рис.1.5. Рис. 1.5 Скомпилированный и запущенный проект «Записная книжка» - 8 - Описание процедур и функций компонентов главной формы Заполнения компонента MainMenu1. Меню «Файл» 1.     “Новый” Так как при создании нового файла будет открываться окно для сохранения

нового файла на жесткий диск, то нам нужен компонент SaveDialog с закладки Dialogs. Заходим с главной формы Файл|Новый откроется Окно Редактора Кода и в него вставляем следующий код с комментариями, после слова Begin: if savedialog1.Execute then begin // Запустить окно сохранения файла memo1.Lines.SaveToFile(savedialog1.FileName+'.not'); // Сохранить предыдущий текст с //именем которое ввели в окне сохранения файла memo1.Clear(); //Очистить компонент Memo от предыдущего текста end;

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

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

memo1.Lines.SaveToFile(s); // сохранить содержания компонента Memo1 в файл с //именем которого хранится в переменной S 4.     “Экспорт данных…” Для этого нужен ещё один компонент SaveDialog и так как файл будет сохраняться в «Текстовый документ», то в свойстве Filter, компонента SaveDialog2, нужно ввести: Filter Name: ‘Текстовый документ’, а Filter: ‘*.txt’. Теперь вставить следующий код в кнопку: if SaveDialog2.Execute then // запустить окно сохранения файла - 9 -

memo1.Lines.SaveToFile(Savedialog2.FileName+'.txt');//сохранить файл с расширением // txt 5.     “Выход” Для закрытия программы в Delphi есть один оператор CLOSE. Вставим этот оператор в кнопку. Настройка меню «Файл» - закончена. Меню «Правка» 1.     “Найти” Для поиска нужного текста в Delphi есть компонент FindDialog. Перенесём этот компонент с закладки Dialogs. Вставляем следующий код в OnClick кнопки: Spos:=memo1.SelStart; //Запоминание позиции курсора with finddialog1 do