Mirsaid Aripov, Nurillo Otaxanov

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;

Eslatma: Ayrim hollarda klass elementlarini to`la yashirishga to`g’ri keladi. Bunday hollarda klassni alohida modulda e`lon qilish lozim. Bu klass ob’yektlaridan foydalanuvchi dasturda modulga murojaat qilinadi.

11.7. Polimorfizm va virtual metodlar

Polimorfizm - bu turli klasslarga kirgan metodlar uchun bir hil nomlardan foydalanish imkoniyatidir. Polimorfizm konsepsiyasi ob’yektga nisbatan metod qo`llanganida, aynan shu ob’yekt klassiga mos keluvchi metoddan foydalanishni ta`minlaydi.

Bittasi qolgan ikkisiga bazaviy bo`lgan uchta klass aniqlangan bo`lsin:

ture

 bazaviy klass

TPerson  class

fname: string;  nom