Удаление экземпляра класса

Когда вы закончите работу с экземпляром другого класса, вы должны удалить его. Когда экземпляр класса удаляется, он вызывает деструктор, если класс уже определен.

Синтаксис:

delete object <ref>[no-error].

Здесь,

• <ref> – Переменная или свойство, содержащее ссылку на экземпляр класса.

Рассмотрим деструктор для класса Department.

Когда экземпляр класса Department завершает свою работу, экземпляры класса Employee больше не нужны. Экземпляр Department удаляется и вызывается его деструктор. Деструктор класса Department содержит код для удаления всех экземпляров Employee. Каждое удаление экземпляра Employee вызывает деструктор для класса Employee.

Этот пример кода содержит оператор DO для перебора всех экземпляров Employee. Вы узнаете больше об операторе DO позже:

destructor public Department ( ):
    /* удаление всех объектов Employee */
    define variable i as integer no-undo.
    do i = 1 to NextEmployeeIndex - 1 by 1:
        delete object Employees[i].
    end.
end destructor.