Створення модуля, глава 6

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

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

Починається модуль заголовком - інструкцією unit, в якій зазначено ім'я модуля. Під час збереження модуля це ім'я буде автоматично замінено на ім'я, вказане програмістом.

В розділ implementation (реалізація) потрібно помістити процедури і функції, оголошені в розділі interface.

Як приклад в лістингу 6.8 приведений модуль програміста, який містить розглянуті раніше функції IsInt і isFioat.

Лістинг 6.8. модуль програміста

// використовують цей модуль

function IsInt (ch. char). Boolean;

// функція Islnt перевіряє, чи є символ

// допустимим під час введення цілого числа

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

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

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

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

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

// перевіряє, чи є символ допустимим

// під час введення цілого числа

function Islnt (ch. char). Boolean;

or (ch = # 13) // клавіша

or (ch = # 8) // клавіша

then Islnt: = True // символ допустимо

else Islnt: = False; // неприпустимий символ

// перевіряє, чи є символ допустимим

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

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

// ch - черговий символ // st - вже введено жодного символу

or (ch = # 13) // клавіша

or (ch = # 8) // клавіша

IsFloat: = True; // символ вірний

Exit; // вихід з функції

'-': if Length (st) = 0 then IsFloat: = True; ',':

and (st [Length (st)]> = '0') and (st [Length (st)] <= '9')

then // роздільник можна ввести тільки після цифри

// і якщо він ще не введений

IsFloat: = True; else // інші символи заборонені

IsFloat: = False; end

// це розділ ініціалізації // він в даному випадку не містить інструкція end.

Зберігається модуль звичайним способом, тобто. Е. Вибором з меню File команди Save. Разом з тим, для модулів повторно використовуваних процедур і функцій краще створити окрему папку, назвавши її, наприклад, Units.

Схожі статті