Размещение и инициализация с помощью процедуры New
Borland Pascal расширяет синтаксис процедуры New, что явля-
ется более компактным и более удобным средством выделения прост-
ранства для объекта в динамически распределяемой области памяти и
инициализации объекта с помощью только одной операции. Теперь
процедура New может вызываться с двумя параметрами: имя указателя
используется в качестве первого параметра, а вызов конструктора -
в качестве второго параметра:
New(P, Init('Sara Adams', 'Account manager', 2400));
Если для процедуры New используется расширенный синтаксис,
то конструктор Init действительно выполняет динамическое размеще-
ние, используя специальный код входа, сгенерированного как часть
компиляции конструктора. Имя реализации не может предшествовать
Init, т.к. в то время, когда процедура New вызвана, реализация,
инициализируемая с помощью Init, еще не существует. Компилятор
идентифицирует правильный вызываемый метод Init посредством типа
указателя, пересылаемого в качестве первого параметра.
Процедура New также была расширена для возможности использо-
вания ее как функции, которая возвращает значение указателя. По-
сылаемый New параметр является типом указателя на объект, а не
самой переменной-указателем:
tyрe
PSalaried = ^TSalaried;
var
P: PSalaried;
P := New(PSalaried);
Обратите внимание, что в данной версии функциональная форма
расширения процедуры New применима ко всем типам данных, а не
только к типам объектов.
Функциональная форма New, как и процедурная форма, также мо-
жет воспринимать конструктор объектного типа в качестве второго
параметра:
P := New(PSalaried, Init('Sara Adams',
'Account manager', 2400));
В Borland Pascal осуществлено также параллельное расширение
процедуры Disрose, это подробно обсуждается в следующем разделе.
Примечание: Новая стандартная процедура Fail поможет
вам в конструкторах выполнить восстановление при ошибке
(см. Главу 9 в "Руководстве по языку").
