AeEIAIE*ANEEA IAUAEOU
Iauaeoiua ia?aiaiiua ao iiiaii iiaeiaiu iau/iui ia?aiaiiui Oo?ai
Ianeaey, a /anoiinoe, eo iiaeii ?aciauaoue a aeeiaie/aneie iaiyoe. Oo?ai
Ianeaeue niaea?aeeo n?aaenoaa, iaeaa/athuea ?aciauaiea iauaeoiuo
ia?aiaiiuo a eo/a e eo oaeaeaiea ec iaa, iai?eia?:
var
Pline: ^Tline;
…….
New(Pline, Init):
…….
A yoii i?eia?a ?aciauaiea iauaeoiie ia?aiaiiie (ia iaa oeacuaaao PLINE)
a eo/a nii?iaiaeaeaaony iaeiia?aiaiiui ia?auaieai e eiino?oeoi?o
TLINE.INIT aeey eieoeeaeecaoeee iauaeoa e naycuaaiey ae?ooaeueiuo
iaoiaeia n aiiaue nicaeaiiie ia?aiaiiie: a i?ioeaaeo?a NEW aeiioneaaony
a ea/anoaa aoi?iai ia?aiao?a oeacuaaoue ia?auaiea e eiino?oeoi?o.
Aieaa oiai, i?ioeaaeo?o NEW iiaeii aucuaaoue e eae ooieoeeth – a yoii
neo/aa iia aica?auaao cia/aiea oeia POINTER, oeacuaathuaa ia
aeeiaie/anee ?ani?aaeaeaiiue iauaeo:
PLine := New(TLine);
eee
PLine := New(TLine, Init):
Ia?aoeoa aieiaiea: ia?aui ia?aiao?ii i?ioeaaeo?a New ia?aaeaaony
oeacaoaeue ia aeeiaie/anee ?ani?aaeaeyaiue iauaeo, a oi a?aiy eae ia?aui
ia?aiao?ii ooieoeee NEW – oei ?ani?aaeaeyaiiai iauaeoa. E a oii, e a
ae?oaii neo/aa a ea/anoaa aoi?ii ia?aiao?a ia?auaiey aeiioneaaony
eniieueciaaoue aucia eiino?oeoi?a, iaeiaei eiy eiino?oeoi?a ia iiaeao
auoue ninoaaiui -aaaeue a iiiaio ia?auaiey aeeiaie/aneee iauaeo aua ia
nicaeai. Iai?eia?, iia?aoi?
New(Pline, PLine^.Init);
auciaao niiauaiea ia ioeaea.
I?e ia?auaiee e NEW n iaeiia?aiaiiui auciaii eiino?oeoi?a aeeiaie/aneay
iaiyoue ?aca?ae?oaiay n iiiiuueth niaoeeaeueiiai i?ia?aiiiiai eiaea,
aoiaeyuaai a ethaie eiino?oeoi? e aucuaaaiiai aei ia/aea ?aaiou
eniieiyaiie /anoe eiino?oeoi?a (aei begin). I?e yoii aeeiaie/aneay
iaiyoue iiaeao ieacaoueny en/a?iaiiie. A yoii neo/aa noaiaea?oiay
ooieoeey ia?aaioee ioeaie aaeieieno?aoi?a eo/e auaeaao cia/aiea 0, /oi
aucuaaao aaa?eeiia caaa?oaiea i?ia?aiiu n eiaeii ioeaee 203. Anee
eniieuecoaony ianoaiaea?oiay ooieoeey ia?aaioee ioeaie e yoa ooieoeey
aica?auaao 1, eiino?oeoi? i?iioneaao iia?aoi?u iinea begin e aica?auaao
NIL. Oaeei ia?acii aa?aioe?oaony, /oi eniieiyaiua iia?aoi?u eiino?oeoi?a
aoaeoo ?aaioaoue oieueei i?e oneiaee ii?iaeueiiai ?ani?aaeaeaiey
aeeiaie/aneie iaiyoe. Iaeiaei a oaea eiino?oeoi?a iiaeao auoue nicaeai
iiaue aeeiaie/aneee iauaeo, a iai – naie e o.ae. Oo?ai Ianeaeue
aeiioneaao i?iecaieueioth aeoaeio aeiaeaiiinoe eiino?oeoi?ia. Anee ia
eaeii-oi o?iaia iaia?oaeeony iaoaaoea aeeiaie/aneie iaiyoe, iaiaoiaeeii
eeeaeaee?iaaoue anth oeaii/eo oniaoii ?ani?aaeaeaiiuo iauaeoia. *oiau
yoa iia?aoeey noaea aiciiaeiie, a Oo?ai Ianeaeue aaaaeaia noaiaea?oiay
i?ioeaaeo?a aac ia?aiao?ia FAIL, eioi?ay iiaeao aucuaaoueny oieueei ec
eiino?oeoi?a e eioi?ay inaiaiaeaeaao oaea auaeaeaiioth eiino?oeoi?ii
iaiyoue, caaa?oaao aai ?aaioo e aica?auaao NIL.
Aeey oaeaeaiey aeeiaie/aneiai iauaeoa ec eo/e eniieuecoaony iniaue
iaoiae – aeano?oeoi?, iienuaaaiue n iiiiuueth ca?aca?ae?iaaiiiai neiaa
DESTRUCTOR. A yoii iaoiaea iiaeii i?aaeoniio?aoue ana aeaenoaey,
naycaiiua n eeeaeaeaoeeae aeeiaie/aneiai iauaeoa (o.a. ia?aiaiiie
iauaeoiiai oeia, ?aciauaiiie a aeeiaie/aneie iaiyoe), iai?eia?,
inouanoaeoue ioaeioth ei??aeoeeth nienea aeeiaie/aneeo iauaeoia.
Ia?auaiea e aeano?oeoi?o oeacuaaaony aoi?ui ia?aiao?ii i?e auciaa
i?ioeaaeo?u DISPOSE, iai?eia?:
……….
type
TLine = object(Point)
……
Constructor Init;
Destructor Done;
end;
…….
New(PLine, Init); {?aciauaiea aeeiaie/aneiai iauaeoa}
…….
Dispose(PLine, Done); {Oaeaeaiea aeeiaie/aneiai iauaeoa}
…….
I?e iaiaoiaeeiinoe aeano?oeoi?, eae e ethaie ae?oaie iaoiae iauaeoa
(e?iia eiino?oeoi?a!), iiaeii iauyaeoue ae?ooaeueiui.
Нашли опечатку? Выделите и нажмите CTRL+Enter
