Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Климов. Лекции / Алг_яз_Лекция_6.pptx
CONSTRUCTOR TStaff.Init(Nm,Dt:STRING; Rt,Bn:REAL); |
|
BEGIN |
THEN Fail; |
IF NOT INHERITED Init(Nm,Dt,Rt) |
|
Bonus:= Bn; |
|
END; |
|
Полезная информация |
31 |
Деструкторы |
32 |
Деструкторы |
33 |
Деструктор размещается вместе |
|
с другими методами объекта в |
|
определении типа объекта: |
|
ТУРЕ |
|
TPerson = OBJECT |
|
Name: STRING[30]; |
|
Date: STRING[10]; |
|
Rate: REAL; |
|
CONSTRUCTOR Init(Nm,Dt:STRING; Rt:REAL); |
|
DESTRUCTOR Done; VIRTUAL; |
|
PROCEDURE ShowAll; VIRTUAL; |
|
END; |
|
Деструкторы |
34 |
Деструкторы можно наследовать, и они могут быть либо с
Деструкторы |
35 |
Деструкторы |
36 |
Деструкторы |
37 |
Информация о размере удаляемого объекта становится дост
Деструкторы |
38 |
Для выполнения освобождения памяти при позднем связывании деструктор нужно вызывать как часть расширенного синтаксиса процедуры Dispose:
Dispose(Р,Done);
Деструкторы |
39 |
Деструкторы |
40 |