Разработка классов на языке Object Pascal. Соколов Е.В. - 39 стр.

         И , наконец , ещ е од ин м етод м ожет с т ат ь ис точником т еперь уже
пот енц иал ь ной ут ечки пам ят и. Речь ид ет оконс т рукторе Create.
         Вс пом ним , чтов Object Pascal конс т руктор м ожет бы т ь в ы з в ан не
тол ь код л я с оз д ания нов огообъект а, нои д л я переиниц иал из ац ии с ущ е-
с т в ующ его. Н аш конс т рукт ор Create при этом прос тораз м ес т ит з анов о
в с е ком понент ы в ектора, напрочь з абы в об уже с ущ ес т в ующ их объек-
т ах. Ч тобы ис кл ючит ь т акую в оз м ожнос т ь , д обав им к код у конс т руктора
пров ерку на рав енс т в о указ ат ел я нул ю (т. е. в д анном с л учае nil). Е с л и
ком понент а с ущ ес т в ует, ее нужноне раз м ещ ат ь в пам ят и з анов о, а л ишь
переиниц иал из иров ать пов торны м в ы з ов ом конс т руктора Rational.Create.

Пример2.3.13. О кончат ел ь ная реал из ац ия конс т руктора Create.

constructor RVector.Create;
var i: Integer;
begin
  inherited Create;
  for i:=1 to Dim do
     if self.comp[i]<>nil then self.comp[i].Create
                          else self.comp[i]:=Rational.Create;
end;


         В з акл ючение решения д анной з ад ачи от м ет им , чтоприв ед енны й
в ы ше код д ем онс т рирует объект ное, но не объект но-ориент иров анное
програм м иров ание. Х отя форм ал ь ноэл ем ент ы м ас с ив а comp и парам ет -
ры м етод ов кл ас с а RVector им еют т ип Rational, в д ейс т в ит ел ь нос т и они
м огут с од ержат ь ад рес а объектов , принад л ежащ их л юбы м кл ас с ам , про-
из в од ны м от Rational. В этом с л учае и рез ул ьт ат, с кажем , операц ии Sca-
larProduct т акже не обяз ан принад л ежат ь кл ас с у Rational. С л ед ов ат ел ь но,
м ы не м ожем с оз д ат ь перем енную result в ы з ов ом конс т руктора, яв но
указ ав им я д анногокл ас с а. Бол ее под робное обс ужд ение эт их в опрос ов
отл ожим д оз ад ачи 3.1.

         Задача 2.4 яв л яет с я обобщ ением пред ы д ущ ей. Требует с я из м е-
нит ь кл ас с RVector т ак, чтобы егообъект ы пред с т ав л ял и в екторы произ -
в ол ь ной раз м ернос т и и эт а раз м ернос т ь м огл а из м енят ь с я пол ь з ов ат ел ем
кл ас с а.

        Реш ение. 1. Ч тобы под черкнут ь ос нов ное отл ичие д анногокл ас -
с а от пред ы д ущ его, наз ов ем егоDynamicRVector.
        2. Пос кол ь ку раз м ернос т ь в ектора с огл ас ноус л ов ию з ад ачи м ожет


                                            39