Сообщение от Igor
А подробнее. Как оформить?
|
Общая схема:
Unit имя_модуля;
interface
// Описание функций и процедур
implementation
// Сама реализация данных функций и процедур
initialization
// Какая-то начальная инициализация переменных при загрузке модуля
end.
Вот пример модуля:
unit Complex;
interface
type complex = record
real_part, imag_part: real;
end;
function Add(a, b: complex): complex;
function Sub(a, b: complex): complex;
function MakeString(a: complex): string;
implementation
function Add(a, b: complex): complex;
begin
add.real_part := a.real_part + b.real_part;
add.imag_part := a.imag_part + b.imag_part;
end;
function Sub(a, b: complex): complex;
begin
sub.real_part := a.real_part - b.real_part;
sub.imag_part := a.imag_part - b.imag_part;
end;
function MakeString(a: complex): string;
begin
MakeString := '' + a.real_part + ' + ' + a.imag_part + 'j';
end;
end.