4. Модуль Unit4

Модуль Unit4 содержит три процедуры TForm4.FormActivate, TForm4.N1Click , TForm4.N2Click и TForm4.BitBtn1Click.

Процедура TForm4.BitBtn1Click вызывается при щелчке по кнопке В главное меню. Как и в модуле Unit3, эта процедура обеспечивает закрытие окна формы и чистку таблицы с результатами обработки. Текст процедуры приведен на рисунке 21.

Рисунок 21 – Процедура закрытия окна Form4

В интерфейсной части модуля Unit4 описаны два массива: массив строк naim, предназначенный для хранения различных имен товара, и вещественный массив stoim, в который будут занесены вычисленные стоимости поставок каждого товара. Кроме того, описана целочисленная переменная tb, значение которой – количество различного товара. Все эти объекты получают значения в процедуре TForm4.FormActivate и используются в процедуре TForm4.N1Click (команда Запись результатов в файл).

Активация Form4, а, следовательно, и выполнение процедуры TForm4.FormActivate происходит после выбора пользователем в Form1 команды Обработка. Процедура анализирует, выполнены ли ранее команды Ввод исходных данных и Сортировка. Если какая-то из данных команд не выполнена, то выдается сообщение пользователю и выполнение процедуры на этом завершается. Если обе команды были ранее выполнены, то организуется цикл просмотра отсортированного массива naim с вычислением для каждого элемента стоимости товара (произведение цены на количество) и добавление полученного значения к накапливаемой сумме. Наименование товара и накопленная сумма переписываются в массивы naim и stoim. При этом значение переменной tb увеличивается на 1.

Схема алгоритма процедуры TForm4.FormActivate приведена на рисунке 22.

Рисунок 22 – Схема алгоритма процедуры TForm4.FormActivate

Текст процедуры TForm4.FormActivate приведен на рисунке 23.

Рисунок 23 – Текст процедуры TForm4.FormActivate

Процедура TForm4.N1Click выполняется при щелчке по кнопке Выберите действие, Запись результатов в окне приложения Form4. Назначение процедуры – запись в файл Отчет.txt содержимого массивов naim и stoim.

Схема алгоритма процедуры TForm4.N1Click приведена на рисунке 24, а текст процедуры – на рисунке 25.

Рисунок 24 – Схема алгоритма процедуры TForm4.N1Click

Рисунок 25 – Текст процедуры TForm4.N1Click

Процедура TForm4.N2Click выполняется при щелчке по кнопке Выберите действие, В главное меню в окне приложения Form4. Назначение процедуры – возвращение в главное меню.

Текст процедуры TForm4.N2Click приведен на рисунке 26.

Рисунок 26 – Текст процедуры TForm4.N2Click