Interface

type

TComplex=record // Тип комплексного числа

Re, Im: real

end;

// Вызываемые функции

function AddC(x,y:TComplex):TComplex; External 'Complex2' Index 1;

function SubC(x,y:TComplex):TComplex; External 'Complex2' Index 2;

function MultC(x,y:TComplex):TComplex; External 'Complex2' Index 3;

function DivC(x,y:TComplex):TComplex; External 'Complex2' Index 4;

Implementation

end.

Листинг модуля формы вызывающей программы такой же, как в задании 1, только в строке uses добавлена ссылка на модуль Complex1. В этом модуле устанавливается связь с DLL.

Выводы

1. Для работы с часто используемыми подпрограммами применяются модули и DLL

2. Модуль или DLL - это набор готовых подпрограмм, хранящихся в компилированном виде.

3. Модуль связывается с вызывающей программой при компоновке.

4. DLL связывается с вызывающей программой динамически: DLL загружается на время обращения к ее подпрограммам.

5. Одна и та же DLL может использоваться несколькими параллельно работающими программами.

14.Таблицы

Подготовка к работе

По указанной литературе изучить:

1. Cвойства компонентов Label, Button, Edit, StringGrid.

2. Cобытия onClick, onChange, onCreate.

3. Как создать код обработчика события.

Контрольные вопросы

1. События onClick, onCreate.

2. Назначение и свойства компонента кнопка.

3. Назначение и свойства компонент метка.

4. Назначение и свойства компонента однострочный редактор.

5. Назначение и свойства компонента StringGrid.

6. Как инициализировать таблицу при старте приложения.

7. Как создать обработчик события onClick.

8. Как создать обработчик события onDblClick.

9. Как создать обработчик события onChange.

10. Как использовать строковые данные для вычислений.

11. Как увеличить число строк в таблице.

12. Как уменьшить число строк в таблице.

13. Как увеличить число столбцов в таблице.

14. Как увеличить число столбцов в таблице.

15. Подпрограммы. Основные понятия.

Задание

Создать проект “Таблица конвертации” для конвертации рублей России в разные валюты с учетом комиссии. В таблице предусмотреть возможность редактирования содержимого ячеек, добавления и удаления строк и столбцов. Варианты заданий приведены в табл. 14 .2.

табл. 14.2. Варианты заданий

№	Валюты
1	Доллар США	Фунт стерлингов	Евро
2	Фунт стерлингов	Евро	Рубль Беларуси
3	Евро	Японская йена	Гривна Украины
4	Японская йена	Рубль Беларуси	Японская йена
5	Рубль Беларуси	Гривна Украины	Доллар США
6	Гривна Украины	Фунт стерлингов	Доллар США
7	Доллар США	Японская йена	Фунт стерлингов
8	Фунт стерлингов	Японская йена	Евро
9	Евро	Рубль Беларуси	Японская йена
10	Японская йена	Гривна Украины	Рубль Беларуси
11	Рубль Беларуси	Фунт стерлингов	Гривна Украины
12	Гривна Украины	Евро	Японская йена
13	Доллар США	Японская йена	Рубль Беларуси
14	Фунт стерлингов	Рубль Беларуси	Гривна Украины
15	Евро	Гривна Украины	Фунт стерлингов

Пример выполнения

Задание

Создать проект “Таблица конвертации” для конвертации с учетом комиссии рублей России в валюты США, Великобритании и Европейского союза.

Выполнение

1. Запустить Delphi.

2. Создать в ней новое приложение.

3. Присвоить свойству Caption компонента Form1 значение Пересчет денежных сумм.

4. Сохранить модуль под именем Prg_14_1_, а проект под именем Prg_14_1.

5. Установить на форме компоненты: однострочные редакторы Edit1 и Edit2, метки Label1 - Label4, кнопки Button1- Button7 (со страницы Standard), таблицу строк StringGrid1 (со страницы Additional). Компоненты расположить, как показано на рис. 14 .5.

рис. 14.5. Заготовка интерфейса проекта "Таблица"

6. Задать следующие свойства компонент:

Компонент	Caption (Надпись)	Name (Имя)	Описание функций
StringGrid1		StringGrid1	Основная таблица
Edit1		EdCell	Редактирование ячейки
Edit2		EdSum	Редактирование суммы
Label1	Редактор ячеек	Label1	Поясняющая надпись
Label2	Сумма для конвертации	Label2	Поясняющая надпись
Label3	Таблица	Label3	Заголовок
Label4	LbDate	Label4	Текущая дата
Button1	OK	SellAgree	Принятие изменений
Button2	Принято	SumAgree	Принятие суммы и расчет
Button3	Выход	Exit	Выход из приложения
Button4	<	DecCol	Умен. числа столбцов на 1
Button5	>	IncCol	Увел. числа столбцов на 1
Button6	/\	DecRow	Умен. числа строк на 1
Button7	\/	IncRow	Увел. числа строк на 1

После установок интерфейс проекта примет вид рис. 14 .6.

рис. 14.6. Интерфейс проекта в режиме конструирования

Листинг модуля формы проекта

unit Prg_14_1_;