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