Ы маамммтттттngy s,,,,,,,,,,,C, xf

protected

Constructor Create(Name:TName);

Function GetName: TName;

Function GetAddress: TAddress;

Procedure SetAddress(NewAddress:TAddress);

Property Name: TName

read GetName;

Property Address: TAddress

read GetAddress

write SetAddress;

end;

Polimorfizm - bu har xil sinfrga kiruvchi usular uchun bir xil nomlarni ishlatish imkoniyatini yaratishdir. Polimorfizm prinstipi shundan iboratki sinf ob’ektiga mos bo’lgan biror ishning bajarilishida bir xil usulga murojaat qilish mumkinligini ta’minlab beradi. Misol uchun biz yangi sinf tashkil qilishga qaror qildik. Bu sinf bosh sinfdan farqi uning usulida algoritm o’zgartirilgan deylik. Natijada biz bir xil nomli usulga ega bo’lgan ikkita sinfni tashkil qilgan bo’lamiz. U holda tashkil qilingan yangi sinf “polimorfizm” xossasiga ega bo’ladi. Sinflar dasturning Type bo’limida umumiy holda quyidagicha e’lon qilinadi.