стивості і події, оголошені в розділі published, також доступні під час виконання, але більш важливо те, що вони доступні в Інспекторові об'єктів під час проектування.
Експерт компонентів не заповнює всіх розділів генерованого класу компонента. Він обмежується оголошенням чотирьох різних розділів.
2.3 Технологія створення компонента з обгрунтуванням прийнятих рішень
Компонент курсової роботи ми створювали за допомогою Експерта компонентів. Створили новий проект типу Component (см.ріс.1 ліворуч), після чого заповнили необхідні дані в Експерті компонентів (рис.2 праворуч).
Малюнок 1 - Створення нового компонента за допомогою експерта компонентів
Експерт компонентів вимагає ввести наступну інформацію:
ім'я класу-предка, від якого буде породжений новий компонент (Tcomponent);
ім'я класу нового компонента (ComponentClassOil);
ім'я сторінки палітри компонентів (Samples);
ім'я модуля компонента (ComponentClassOil.pas);
шляхи для пошуку файлів.
Експерт компонентів згенерував мінімально заповнений шаблон компонента. Після створення каркаса для компонента ми внесли в його текст зміни, якими раніше, при написанні ІДЗ, ми описували клас, що дозволяє об'єкту зберігати інформацію про кількість свердловин куща на нафтовому промислі. Передбачено також у створеному класі компонента наявність методу, який по введеному добовий дебіт кожної свердловини визначає номери двох свердловин з мінімальною продуктивністю.
Частина змінних ми визначили як приватні (видимі тільки самому модулю), для них перед ім'ям файлу потрібно додати букву F. Частина змінних визначили як Public, ці змінні бачать програми, які звертаються до компоненту. Решта змінні, процедури і властивості, а також конструктор, ми розмістили в розділі Published, щоб Інспектор об'єктів Delphi бачив ці процедури і властивості.
TComponentClassOil=class (TComponent)
private//елементи класу, які видно тільки всередині класу
FOil: array of Integer;
Fn: Integer;
protected
{Protected declarations}
public
{Public declarations}
NWells: array of Real;
published//ці методи видно з інших модулів і доступні в Інспекторові об'єктів
//кількість свердловин
property n: Integer read Fn write Fn;
//динамічний масив під дебет кожної свердловини
Constructor Create (AOwner: TComponent); override;// Метод створює об'єкт класу
procedure GetValueWells (userval: string);// Вважати число свердловин в кущу
procedure SortWells (var n1, n2: Integer);// Сортування свердловин за дебетом
procedure ShowValue ();// Показує значення i
end;
Процедуру реєстрації компонента на панелі Samples нам вже створив Експерт:
//процедура реєстрації компонента на вкладці Sample
procedure Register;
RegisterComponents ( Samples raquo ;, [TComponentClassOil]);
end;
Нам залишилося тільки додати тіло конструктора і трьох процедур, описаних у розділі implementation (см.лістінг нижче). Після чого робимо збереження та компіляцію отриманого компонента, що дає нам файл myoilpack.dpk. Цей файл потрібно запустити в середовищі Delphi, щоб він зареєструвався в системі і встановився на панель Sample.
Далі потрібно в основній програмі курсової роботи:
описати змінну типу класу створеного компонента;
звернутися до конструктора і створити екземпляр класу;
заповнити значеннями змінні, необхідні для обчислювальної роботи класу компонента (число свердловин і добовий дебет кожної свердловини). При цьому здійснюємо контроль за правильністю числового введення;
виконати обчислення, звернувшись до компоненту і повернути результат в програму, показати його на формі;
знищити екземпляр класу компонента в пам'яті і обнулити його змінну.
Реалізацію описаний кроків см.лістінг нижче.
2.4 Лістинг модуля
unit ComponentClassOil;
SysUtils, Classes, Dialogs;
//описуємо тип ...
