metoda (метода Ваулина "Создание текстового редактора для работ с текстовыми файлами")

1Создание текстового редактора для работ с текстовыми файламиЦель работы – создание программного редактора с меню и диалогами для работы с текстовыми файлами.Результат работы – программа-редактор, предоставляющая пользователю основные функции по созданию, сохранению и обработке с диалогами текстовых файлов.1.Создание формы проекта.Запустите Lazarus, создайте проект (команды Проект-Создание проекта-Приложение-ОК) и сохраните проектв отдельнй папке.Разместите на форме компонент Memo (панель компонентов Standard).

Щелкните на значкеTMemo, а затем - на форме. Буксировкой и перетаскиванием маркеров придайте ему такие размерыи положение, чтобы осталось сверху место для размещения других компонентов.1.2. Разместите на форме значок MainMenu (панель компонентов Standard). Щелкните на значкеTMainMenu, а затем на свободном месте формы. Этот компонент будет использован для созданияменю с подменю.1.3. Разместите на форме значки OpenDialog (панель компонентов Dialogs) – окно диалога выбораоткрываемого файла, SaveDialog (панель компонентов Dialogs) - окно диалога выбора файла для сохранения редактируемого текста.В результате макет формы должен принять вид как на рисунке 1.1.1.Рисунок 1.Окно проекта: форма проекта, дерево объектов и описание типа TForm1.Выполните программу, убедитесь в том, что невизуальные компоненты – значки меню и диалогов не отображаются на форме.Визуальными компонентами являются те, которые имеют окна, и могут быть видимыми при работепрограммы. Например, компоненты Memo, Label, Edit.невизуальные компоненты не имеют на форме соответствующих значкам образов при работе программы.

Например, компоненты OpenDialog, SaveDialog.1.4.22.Создание меню.2.1. Двойным щелчком на значке MainMenu1 откройте Конструктор меню (Рисунок 2),2.2. Дайте первому пункту строки меню название Файл, а первому пункту его подменю названиеСоздать.Рисунок 2. МенюtypeTForm1 = class(TForm)Memo1: TMemo;MainMenu1: TMainMenu;OpenDialog1: TOpenDialog;SaveDialog1: TSaveDialog;MenuItem1: TMenuItem;MenuItem2: MenuItem;MenuItem3 TMenuItem;MenuItem4:TMenuItem;MenuItem5:TMenuItem;MenuItem6:TMenuItem;MenuItem7:TMenuItem;MenuItem8:TMenuItem;MenuItem9 TMenuItem;MenuItem10:TMenuItem;procedure MenuItem2Click(Sender: Object);procedure MenuItem3Click(Sender: Object);procedure MenuItem4Click(Sender: Object);procedure MnuItem5Click(Sender:TObject);procedure MenuItem6Click(Sender: Object);procedure MnuItem7Click(Sender:TObject);procedure MenuItem29lick(Sender: Object);procedure MenuItem10Click(Sender:TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;Для добавления пункта меню/подменю, следует щелчком выделить свободную рамку в Конструкторе меню, набрать текстназвания пункта меню в строке Caption окна Инспектора объектов на вкладке Свойства и нажать клавишу Enter.

При наборерусскими буквами именем, используемым в программе, будет имядля первого пункта меню – MenuItem1, для второго –MenuItem2, и так далее.2.3.Аналогично создайте пункт меню Работа с двумя подпунктами с временными именами А и Б (в дальнейшем эти имена должны быть заменены на имена пунктов вашего варианта задания).В верхней части окна Инспектора объектов отображаются расположеные на форме компоненты, образующие иерархическю структуру (структура формы в виде дерева объектов).. Для выполняемого задания её вид представлен на рисунке 1.При добавлении на форму компонентов и пунктов подменюпроисходит добавление в объявление типа формы TForm1 одно- Рисунок 3.

Объявление типа формы.именных полей соответствующих типов. Полный их перечень, включая имя формы, представлен на рисунках 1 и 3. Выбор строчки всписке на вкладках Инспектора объектов приводит к отображению сведений о значениях свойств соответствующего объекта (на вкладке Свойства) и методов обработки связанных с этим объектом событий (на вкладке События).После размещения компонентов на форме буксировкой можно придать форме и компонентамнеобходимые положение и размеры, изменяя таким образом значения их свойств, которые будут сохранены и при старте программы, если не изменены программно. Значения свойств формы и компонентов на ста- procedure TForm1. MenuItem2Click(Sender: TObject);beginдии проектирования программы можно изменять и непо- //Обработчик щелчка на пункте меню ФАЙЛ.СОЗДАТЬсредственно на вкладке Свойства окна Инспектора end;Рисунок 4..

Обработчик-заглушка файл создатьобъектов.3. Создание заглушек обработчиков событий.Обработчик события – это метод, автоматически вызываемый при наступлении события, связанного сформой или компонентом. Он оформляется процедурой и выполняет в программе определенную функцию (работу). Например, обработчик щелчка на пункте меню Файл/Открыть… должен обеспечитьдиалог по выбору файла и загрузку его текста в поле многострочного редактора (Memo).Шаблоном обработчика события называется конструкция, состоящая из заголовка метода и операторных скобок.

Шаблон создётся автоматически, например, при двойном щелчке в поле, соответствующем3событию формы или компонента, на вкладке События Инспектора объектов. Одновременно в объявление класса TForm1 добавляется заголовок метода.Заглушкой обработчика события является шаблон, дополненный комментариями и\или объявлениями и операторами, но не выполняющий полностью требуемых функций обработчика события.3.1.

Для пункта меню Создать двойным щелчком в строке OnClick на вкладке Events в окне Инспектора объектов или двойным щелчком на строке MenuItem2 в дереве объектов создайте шаблон обработчика события – щелчка на пункте меню Создать во время исполнения программы, ипревратите его в заглушку, добавив комментарий, как показано на рисунке 4.3.2. Создайте заглушки обработчиков событий – щелчков на всех пунктах подменю строки меню,снабдив соответствующими комментариями.3.3. Создайте заглушку обработчика события – создания формы, шаблон, щелкнув на свободном месте формы или в Инсперторе объектов на вкладке События сделать двойной щелчок в строке OnCreate.После добавления на форму управляющих элементов и заглушек обработчиков событий объявлениекласса формы TForm1 примет вид, показанный на рисунках 1 и 3.Выполните программу и убедитесь в наличии на форме меню и окна текстового редактора.

Выполняйтетакие проверки после каждого добавления\изменения программы.4. Описание переменныхОбъявление переменных, использующихся разными методами, можно в разделе var в интерфейсной части или в разделе var в части реализации. Если в дальнейшем предполагается запретить доступ к этим переменным вне данного модуля (например, в наследниках класса, объявляемых в другихмодулях или в основной программе), то их следует объявить в части реализации или в разделе privateкласса. TForm1.Добавьте в раздел описаний или реализации объявление переменной S:string.

Она представляетспецификацию (имя) файла, обрабатываемого в текущий момент. Её пустое значение будет обозначать,что текст из элемента Memo1 еще не сохранен в файле.5. Создание обработчиков событий FormCreate и файл Сохранить как…,5.1. Добавьте в метод procedure TForm1.FormCreate(Sender: TObject) обработки событияFormCreate операторы и комментарии, как на рисунке 5.5.2. Создайте обработчик procedure TForm1. MenuItem6Click(Sender: TObject) события щелчка на пункте меню Файл\Сохранить как…, для чего сделайте двойной щелчок на соответствующейстроке дерева объектов и в появившейся заглушке добавьте операторы и комментарии, как на рисунке 6.procedure TForm1.FormCreate(Sender: TObject);begin//Обработчик события СОЗДАНИЯ ФОРМЫ//Удалить текст из Memo1Memo1.Clear;//(Развернуть элемент Memo1 во//всю клиентскую область окна формыMemo1.Align:=alClient;//Установить равноширинный шрифт CourierMemo1.Font.Name:='Courier';//Пока S ='', редактируемый текст не сохранен в файлеS:='';//В дальнейшем S представляет имя файла.//Считать, что текст не модифицированMemo1.Modified:=false;end;Рисунок 5.

Обработчик события создания формыprocedure TForm1.MtnuItem6Click(Sender: TObject);begin//Обработчик щелчка на пункте меню ФАЙЛ.СОХРАНИТЬ КАК...//Открытие окна диалога для выбора папки и//задания имени и типа файла, в котором следует//сохранить текст из Memo1-рабочей области редактораif Form1.SaveDialog1.Execute then begin//Если файл выбран,//то S присвоить имя файла,S:=SaveDialog1.FileName;//сохранить текст в файлеMemo1.Lines.SaveToFile(S);//считать, что текст не модифицирован,Memo1.Modified:=false;//в заголовок формы добавить//имя файлаForm1.Caption:='Form1' + ' ' + S;end;end;Рисунок 6.

Обработчик события сохранения текста в новом файлеДля проверки работы. Запустите программу, наберите в поле Memo1 строки Иванов…. 5 5 5 и Медоватов. 4 4 5 (фамилии дополнены точками до 10 символов) и сохраните этот текст в текущей пап-4ке в файле F1.txt.