Ініціалізація полів об’єкта

Звичайно при роботі з записами виникає проблема ініціалізації полів запису. Припустимо, наявна така структура

TStudent=OBJECT

Name:String[30];

Date:String[10];

Rate:Real;

END;


Початківці часто використовують оператор WITH для присвоєння полям Name, Date i Rate початкових значень VAR Student:TStudent; … WITH Student DO BEGIN Name:=’Лящук Петро Павлович’; Date:=’25.06.1995’; Rate:=700; END; Такий метод буде коректним, але не ідеальним. Наприклад, при необхідності ініціалізувати більше одного запису типу TStudent доведеться використовувати кілька операторів WITH, які будуть виконувати одні і ті ж дії. Тому створимо ініціалізуючу процедуру, яка узагальнить застосування оператора WITH до будь-якого екземпляра типу TStudent, що передається в якості параметра.

Згідно з принципами ООП, включимо цю процедуру до складу об’єкту. Така процедура чи функція називається методом. В означення типу включається тільки заголовок методу. При визначенні методу він додатково ідентифікується іменем типу. Поля і методи є двома складовими частинами нової структури - об’єкта.

Type TStudent=OBJECT Name:String[30]; Date:String[10]; Rate:Real; Procedure Init(Nm,Dt:String; RT:Real); END;

Procedure TStudent.Init(Nm,Dt:String; RT:Real); Begin Name:=Nm; Date:=Dt; Rate:=Rt; End;

Тепер для ініціалізації екземпляра типу TStudent достатньо просто викликати його метод

VAR

Student:TStudent;

Student.Init(‘Лящук Петро Павлович’,’25.06.1995’,700);

Читайте також:

<== попередня сторінка	\|	наступна сторінка ==>
WITH Student DO BEGIN	\|	Визначення методів

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

Генерація сторінки за: 0.004 сек.