Delphi позволяет программисту поместить свои функции и процедуры в отдельный модуль, а затем использовать процедуры и функции модуля в своих программах, указав имя модуля в списке модулей, необходимых программе (инструкция uses).

Чтобы приступить к созданию модуля, нужно сначала закрыть окно формы и окно модуля формы (в ответ на вопрос о необходимости сохранения модуля следует выбрать No, т. е. модуль, соответствующий закрытой форме, сохранять не надо). Затем из меню File нужно выбрать команду New/Unit. В результате открывается окно редактора кода, в котором находится сформированный Delphi шаблон модуля. Его текст приведен в листинге 6.7.

I Листинг 6.7. Шаблон модуля I

unit Unitl;
interface
implementation
end.

Начинается модуль заголовком - инструкцией unit, в которой указано имя модуля. Во время сохранения модуля это имя будет автоматически заменено на имя, указанное программистом.

Слово interface отмечает раздел интерфейса модуля. В этот раздел программист должен поместить объявления находящихся в модуле процедур и функций, которые могут быть вызваны из других модулей, использующих данный.

В раздел implementation (реализация) нужно поместить процедуры и функции, объявленные в разделе interface.

В качестве примера в листинге 6.8 приведен модуль программиста, который содержит рассмотренные ранее функции isint и isFioat.

\ Листинг 6.8. Модуль программиста unit my_unit;

interface // объявления процедур и функций, // доступных программам, // использующим этот модуль

function Islnt(ch : char) : Boolean; // функция Islnt проверяет, является ли символ // допустимым во время ввода целого числа

function IsFloat(ch : char;
st: string) : Boolean;

// Функция IsFloat проверяет, является ли символ допустимым

// во время ввода дробного числа

// ch - очередной символ

// st - уже введенные символы

implementation // реализация

// проверяет, является ли символ допустимым // во время ввода целого числа function Islnt(ch : char) : Boolean; begin if (ch >= '0') and (ch <= '9') // цифры

or (ch = #13) // клавиша <Enter>
or (ch = #8) // клавиша <Back Space>

then Islnt := True // символ допустим else Islnt := False; // недопустимый символ

end;

// проверяет, является ли символ допустимым // во время ввода дробного числа

function IsFloat(ch : char;
st: string) : Boolean;

// ch - очередной символ

// st - уже введенные символы begin if (ch >= '0') and (ch <= '9') // цифры

or (ch = #13) // клавиша <Enter>
or (ch = #8) // клавиша <Back Space>

then begin IsFloat := True; // символ верный Exit; // выход из функции

end;
case ch of
'-': if Length(st) = 0 then IsFloat := True;
if ( Post', \st) = 0)
and (st[Length(st)] >= '0') and (st[Length(st)] <= '9') then // разделитель можно ввести только после цифры // и если он еще не введен IsFloat := True;
else // остальные символы запрещены IsFloat := Falser-end;
end;
end.

Сохраняется модуль обычным образом, т. е. выбором из меню File команды Save. Вместе с тем, для модулей повторно используемых процедур и функций лучше создать отдельную папку, назвав ее, например, Units.

Повторное использование функций и процедур || Оглавление || Использование модуля


Delphi 6. Программирование на Object Pascal



Новости за месяц

  • Ноябрь
    2018
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс