Структура приложения Структура программы-проекта n n n

Структура приложения

Структура программы-проекта n n n Текст программы проекта Delphi создает автоматически. Текст программы проекта записывается в файл Project 1. dpr. Данная программа использует встроенный модуль Forms и модуль Unit 1, который должен разработать программист.

Структура программы-проекта Program Project 1; Uses Forms, Unit 1 in 'Unit 1. pas' {Form 1}; {$R *. RES} begin Application. Initialize; Application. Create. Form(TForm 1, Form 1); Application. Run; end.

Структура программы-проекта n n В фигурных скобках можно задавать комментарии, или директивы. Признаком директивы является наличие символа $. Используемая в данном случае директива $R читает файл ресурсов и подключает их к проекту. Вместо символа * в данном случае будет подставлено имя Project 1. Программа проект стандартно вызывает три метода класса ТApplication: q q q Initialize, Create. Form Run.

Структура модуля n Модуль является программной единицей для хранения элементов программирования (типов данных, констант, переменных, подпрограмм)

Структура модуля n Модули бывают двух типов: q q стандартные, заранее созданные разработчиками Delphi и включенные в среду программирования; модули разработчика, создаваемые программистом.

Структура модуля n Модуль состоит из следующих частей: q q q заголовок (Unit); интерфейс (interface); исполнительная часть (Implementation); секция инициализации (Initialization); секция завершения (Finalization); ключевое слово end с точкой.

Структура модуля n n Каждая из этих частей может присутствовать только один раз, их последовательность только такая, как указано выше. Секции инициализации и завершения могут отсутствовать.

Структура модуля n n Заголовок начинается с ключевого слова Unit, за которым следует имя. Имя модуля используется как имя файла, в который записывается текст программы. Delphi по умолчанию присваивает имя Unit 1. В дальнейшем это имя можно изменить при сохранении файла.

Структура модуля n n n Интерфейс модуля часть модуля, доступная для других программных единиц. Интерфейс начинается с зарезервированного слова Interface. Заканчивается интерфейсная секция началом исполнительной части

Структура модуля n n Исполнительная часть модуля начинается с ключевого слова Implementation, а завершается либо началом секции инициализации, если она есть, либо зарезервированным словом end. В этой секции определяются все процедуры и функции, методы классов и обработчики событий, объявленные в интерфейсной секции. Дополнительно могут содержаться определения программных элементов, которые не объявлены в интерфейсной части. Эти процедуры и функции являются недоступными для других программных единиц и используются для выполнения каких либо внутренних действий в данной секции.

Структура модуля n n Секция инициализации содержит операторы, которые выполняют при запуске программной единицы какие либо вспомогательные действия: открываются файлы, инициализируются переменные и т. д. Выполняются эти операторы только один раз. Начинается эта секция ключевым словом Initialization. Эта секция необязательна.

Структура модуля n n Секция завершения содержит операторы, которые выполняются при завершении приложения. Они исполняются один раз. Обычно в этой секции удаляются какие либо временные файлы, записывается какая либо инфор мация и т. п. Начинается эта секция с ключевого слова Finalization. Эта секция необязательна, однако, она должна присутствовать, хотя бы пустая, если есть секция инициализации.

Структура модуля n n Примером встроенного библиотечного модуля является модуль Forms, который содержит методы, позволяющие построить форму. Ниже приводится пример модуля

n n Unit 1; Interface Uses {Подключаемые модули} q Windows, Messages, Sys. Utils, Classes, Graphics, Controls, Forms, Dialogs, Std. Ctrls; Type {Объявления типов используемых переменных} q TForm 1 = class(TForm) n n Edit 1: TEdit; Button 1: TButton; Button 2: TButton; procedure Button 1 Click(Sender: TObject); procedure Button 2 Click(Sender: TObject); end;

n n var {Объявления переменных} Form 1: TForm 1; q q n Implementation q n F: Text. File; S: String; {$ R *. DFM} procedure q q TForm 1. Button 1 Click(Sender: TObject); begin n n q n n n end; Close; Assign. File(F, 'Myfile. txt'); Rewrite (F); {Открытие файла} Finalization q q n {Чтение строки S} end; Initiali zation q n S: =Edit 1. Text; Edit 1. Text: = '' ; procedure TForm 1. Button 2 Click(Sender: TObject); begin q n {Загрузка файла ресурсов формы} Write. Ln (F, S) ; Close File(F); End. {Запись в файл строки S}