Пример написания программы с использованием модуля

Задание: Текст задания такой же, что и в примере 6.5. Процедуры ввода двумерного массива из TStringGrid и его вывода в ТМемо оформить отдельным модулем, который далее будет подключен в основной программе.

Интерфейс программы будет таким же, что и примере 4.5, а текст модуля с процедурами приведен на Листинге 6.2.

6.7.1. Создание модуля

В среде Delphi модули могут создаваться как со своей формой, так и без нее. Для создания нового модуля без своей формы необходимо в меню File выбрать New – Unit. В результате будет создан файл с заголовком Unit Unit2. Имя модуля можно изменить на другое, отвечающее внутреннему содержанию модуля, например Unit MyUnit. Для этого необходимо сохранить модуль с новым именем (например, MyUnit.pas). Следует обратить внимание на то, что имя файла должно совпадать с именем модуля. После компиляции модуля (файл MyUnit.pas) будет создан модуль для сборки пректа - файл с тем же именем, но с другим расширением (.dcu), т.е. MyUnit.dcu. Именно этот модуль (без расширения dcu) и надо прописывать в разделе uses основной программы (см. Листинг 6.3).

6.7.2. Подключение модуля

Для того чтобы подключить модуль к проекту, необходимо в меню Project выбрать опцию Add to Project… и выбрать файл, содержащий модуль. После этого в разделе Uses добавить имя подключаемого модуля – MyUnit. Теперь в проекте можно использовать функции, содержащиеся в модуле.

Интерфейс программы будет иметь вид как и в прошлой задаче(см. рис. 4.5).

Тексты модуля с процедурами (Листинг 6.2) и вызывающей программы (Листинг 6.3) приведены ниже.

Листинг 6.2

unit MyUnit;

Interface

Uses

SysUtils, Grids, StdCtrls, Dialogs;

Type

TMatr = array [1..20, 1..20] of real;

{ здесь прописываются только заголовки процедур и функций }

Procedure Vvod_Matr_iz_Tabl(StringGrid:TStringGrid; var n, m: integer;

var Matr:TMatr);

Procedure Vyvod_Matr(n, m: integer; Matr: TMatr; Memo: TMemo);