Ключевое слово SELF . Рассмотрим метод CHANGE_PRICE:
MEMBER PROCEDURE CHANGE_PRICE
(NEW_PRICE IN NUMBER) IS
BEGIN
PRICE := NEW_PRICE;
END CHANGE_PRICE;
Этот метод вызывается для модификации атрибута PRICE типа
BOOK_T. Для автоматической привязки идентификатора PRICE к экзем-
пляру объекта внутри метода применяется ключевое слово SELF, т. е. в
данном случае вместо оператора
PRICE := NEW_PRICE;
можно было написать оператор
SELF.PRICE := NEW_PRICE;
При передаче же текущего экземпляра объекта другой процедуре или
функции в качестве аргумента указывать SELF необходимо. Приведем
пример.
MEMBER PROCEDURE CHANGE_PRICE_ANOTHER
(BOOK BOOK_T) IS
189
BEGIN
SELF.PRICE := BOOK.PRICE;
END CHANGE_PRICE_ANOTHER;
