Mirsaid Aripov, Nurillo Otaxanov

Constructor TPerson.Create(Name:TName);

begin

Fname : Name;

end;

 Name hususiyati qiymatini olish metodi

Function TPerson.GetName;

begin

Result : FName;

end;

 Address hususiyati qiymatini olish metodi

function TPerson.GetAddress;

begin

Result : FAddress;

end;

 Address hususiyati qiymatini o`zgartirish metodi

Procedure TPerson.SetAddress(NewAddress:TAddress);

begin

if FAddress ' '

then FAddress : NewAddress;

end;

TPerson ob’yektining keltirilgan konstruktori ob’yekt yaratadi va Name hususiyatiini aniqlaydigan Fname maydonini belgilaydi. TPerson klassi ob’yektlarini yaratishni ta`minlaydigan va uning hususiyatlarini ifodalaydigan buyruqlar quyidagicha bo`lishi mumkin:

student : TPerson.Create('Abdullaev');

student.Address : 'Navoiy ko`chasi , 3-uy, kv.25';

11.5. Vorislik

OYD konsepsiyasi yangi klasslarni mavjudlariga yangi maydon, hususiyat va metodlarni qo`shish orqali yaratish imkonini beradi. Yangi klasslarni tashkil qilishning bunday usuli hosila olish deb ataladi. Bu holda hosila-klass o`z bazaviy klassining hususiyat va metodlarini meros oladi.

Hosila-klassni e`lon qilishda ota klassi ko`rsatiladi. Masalan, TEmployee (xodim) klassini yuqoridagi TPerson klassiga FDepartment (bo`lim) maydonini qo`shish orqali hosil qilinadi. Bu holda TEmplioyee klassi quyidagicha e`lon qilinadi:

TEmployee  class(TPerson)

FDepartment: integer;  bo`lim nomeri