Ваш браузер устарел. Рекомендуем обновить его до последней версии.




 



 


Delphi

 

 


Создание, запись, чтение и печать текстовых файлов. Компонент: поле редактирования текста Memo

Построим приложение «Записная книжка», которое позволит пользователю хранить текстовую информацию, а также выводить ее на бумагу. В строку заголовка формы Form1 поместите надпись «Записная книжка». Установите на стартовой форме новый для вас компонент: поле редактирования текста Memo (Записка), который находится во вкладке Standard. Для его свойства ScrollBars (Полоса прокрутки) установите значение ssVertical (Вертикальное положение). Из той же вкладки Standard установите компонент MainMenu. А из вкладки Dialogs (Окна общего диалога) извлеките и установите на форме компоненты OpenDialog (Открытие файла), SaveDialog (Запись файла), FontDialog (Выбор шрифта и его параметров), PrintDialog (Настройки вывода на печать).

Постройте систему меню вашей «Записной книжки» как показано на рисунке. Для чего кликните мышью по компоненту MainMenu1 два раза и в появившемся окне редактора меню подпишите пункты вашего меню. Чтобы команды меню заработали, для каждой из них необходимо написать функцию обработки события нажатия на соответствующую команду. Закройте редактор меню. Кликните мышью по названию меню «Файл», затем по команде меню «Создать» и в появившуюся функцию обработки N2Click (Клик мышью на второй пункт меню) запишите инструкцию:

 

     Memo1->Clear();     //очистка поля редактирования текста

 

Такую же инструкцию следует поместить в функцию обработки FormCreate. Выберите команду «Открыть» и функцию обработки N3Click наполните программным кодом:

 

     OpenDialog1->Execute();     //вызов окна диалога ОТКРЫТИЕ ФАЙЛА

     //в поле редактирования текста поместить содержимое загруженного файла

     Memo1->Lines->LoadFromFile(OpenDialog1->FileName);

 

Lines (Строки) – это свойство компонента Memo1. Здесь используется функция LoadFromFile (Загрузить из файла).

Для команды меню «Сохранить» напишите функцию обработки N4Click:

 

     SaveDialog1->Execute();     //вызов окна диалога СОХРАНЕНИЕ ФАЙЛА

     //запись текстового файла на диск из поля редактирования текста

     Memo1->Lines->SaveToFile(SaveDialog1->FileName + ".txt");

 

Здесь используется функция SaveToFile (Сохранить в файл).

Оживите команду меню «Шрифт», созданием функции обработки N5Click:

 

     FontDialog1->Execute();     //вызов окна диалога ШРИФТ

     Memo1->Font = FontDialog1->Font;     //передача параметров шрифта в поле редактирования текста

 

Font (Шрифт) – это свойство компонента Memo1.

Далее для команды меню «Печать» напишите функции обработки N6Click:

 

     PrintDialog1->Execute();     //вызов окна диалога НАСТРОЙКА ПЕЧАТИ

     Print();     //вывод текста на печать

 

Завершите построение системы меню написанием функции обработки N7Click для команды «Выход»:

 

     Close();     //завершение работы приложения


Теперь можно опробовать виртуальную «Записную книжку» в действии. Если проект приложения работает корректно, создайте исполняемый файл.

Flag Counter
Яндекс.Метрика
200stran.ru: показано число посетителей за сегодня, онлайн, из каждой страны и за всё время
Besucherzahler russain brides
счетчик посещений

Выбери лучшее!

allbest