Описание переменных и объектов

2019-12-29

143

Обсуждений (0)

0.00 из 5.00 0 оценок

123

В программе используется глобальная переменная Form1, которая представляет собой экранную форму.

Для организации интерфейса с пользователем были разработаны экранные формы, в результате чего на экранной форме Form1 поместили элементы, приведенные в таблице 3.1

Таблица 3.1– Описание визуальных объектов на форме Form1

Наименование	Тип	Назначение
MainMenu1	TMainMenu	главное меню
NOpen, NSave, NSaveAs, NCreate, NExit, NInfo, NShow	TMenuItem	пункты главного меню «Открыть», «Сохранить», «Сохранить как», «Создать», «Выход», «Информация», «Показать»
EName, EHDD, ERAM, EMonitor,	TEdit	поля для ввода данных о наименовании компьютера, объеме диска, памяти, типе монитора.
RGrInet	TRadioGroup	поле для ввода информации о подключении к интернет
SGrid1	TStringGrid	вывод содержимого файла в виде таблицы
BBPrev	TBitBtn	кнопка с надписью «Предыдущая запись»
BBNext	TBitBtn	кнопка с надписью «Следующая запись»
BBDelete	TBitBtn	кнопка с надписью «Удалить»
BBAdd	TBitBtn	кнопка с надписью «Добавить»
BBUpdate	TBitBtn	кнопка с надписью «Редактировать»
BBSearch	TBitBtn	кнопка с надписью «Поиск»
OpenDlg1	TOpenDialog	стандартный диалог открытия файлов
SaveDlg	TSaveDialog	стандартный диалог сохранения файла

В разделе var опишем переменные, приведенные в таблице 3.2

Таблица 3.2– Переменные программы

Наименование	Тип	Назначение
F	file of TComp	типизированный файл с данными о компьютерах
Comp	TComp	информация об одном компьютере
AComp	array of TComp	данные обо всех компьютерах в виде массива
CurK	integer	номер текущей записи в массиве AComp
Fname	string	имя текущего (рабочего) файла

Для хранения данных о компьютере разработаем составной тип данных TComp c полями, приведенными в таблице 3.3

Таблица 3.3 – Информационные поля о компьютере

Наименование	Тип	Назначение
Name	string[20]	наименование компьютера
HDD	real	объём жесткого диска
RAM	integer	объём оперативной памяти
Monitor	string[20]	тип монитора
Inet	boolean	наличие подключения к интернет

В разработанной программе содержится описание 13 процедур обработчиков событий и 4 вспомогательных процедуры, которые приведены в таблице 3.4.

Таблица 3.4 Пользовательские процедуры и обработчики событий

Наименование	Обр-к	Назначение	Строки
GetComp	-	поиск компьютера по имени	78-89
ShowComp	-	вывод информации о компьютере на форму	90-101
ShowCompInGrid	-	вывод информации о компьютере в таблицу	102-114
ShowAComp	-	вывод содержимого массива FComp в таблицу	115-127
BBAddClick	+	добавление новой записи о новом компьютере	128-149
BBPrevClick	+	переход на предыдущую запись	150-157
BBNextClick	+	переход на следующую запись	158-165
NSaveClick	+	сохранение текущего файла	166-179
NSaveAsClick	+	запуск диалога и сохранение в файле с заданным именем	180-194
NOpenClick	+	запуск диалога и открытие файла	195-216
BBDeleteClick	+	удаление текущей записи	217-230
NCreateClick	+	инициализация массива AComp	231-237
FormCreate	+	инициализация шапки таблицы	238-247
BBUpdateClick	+	обновление записи в массиве данными из полей ввода	248-260
NShowClick	+	вывод содержимого текущего файла на форму	261-278
BBSearchClick	+	поиск компьютеров согласно некоторым критериям и вывод результатов поиска	279-312
NInfoClick	+	вывод информации о разработчике	313-317
NExitClick	+	выход из приложения	318-322

Более подробно некоторые процедуры будут рассмотрены далее.

Кроме приведенных объектов, в разделе uses подключается модуль Unit2. В модуле Unit2 приведена форма AboutBox, на которой выводится информация о разработчике приложения и задании проекта.

Описание пользовательских процедур

Функция GetComp предназначена для поиска компьютера в массиве по имени. Синтаксис: GetComp(name:string;AComp:ATComp;var Comp:TComp):boolean. Где name – наименование компьютера, AComp – массив в котором производится поиск, Comp – объект, в который возвращается найденный объект. Если поиск удачен, то функция возвращает значение true, иначе – false.

Процедура ShowComp предназначена для вывода информации о компьютере в поля формы. Синтаксис: ShowComp(Comp:TComp). Где Comp – запись, хранящая информацию о компьютере.

Процедура ShowCompInGrid предназначена для вывода информации о компьютере в поля таблицы. Синтаксис:

ShowCompInGrid(Comp:TComp; Sgr:TStringGrid;Row:integer).

где Comp – запись, хранящая информацию о компьютере,

SGr – таблица, в которую производится вывод,

Row – номер строки, в которую выводится информация.

Процедура ShowAComp предназначена для вывода информации о всех компьютерах из массива AComp в поля таблицы. Синтаксис:

ShowAComp(AComp:ATComp;Sgr:TStringGrid).

где AComp – массив записей, хранящий информацию о компьютерах,

SGr – таблица, в которую производится вывод.

Алгоритм процедуры приведен на рисунке А.4.

2019-12-29

143