Avtomatika va elektrotexnologiya

Constructor TPerson.Create(Name:TName);  
begin 

---

FName:=Name;  
end; 
// Name hususiyatining qiymatini olish uslubi 
Function TPerson.GetName; 
begin 
Result:=FName; 
end; 
// Address hususiyatining qiymatini olish uslubi 
function TPerson.GetAddress; 
begin 
Result:=FAddress; 
end; 
// Address hususiyatining qiymatini o‘zgartirish 
Procedure TPerson.SetAddress(NewAddress:TAddress);  
begin 
if FAddress =' ' 
then FAddress := NewAddress;  
end; 
Keltirilgan TPerson ob‘yektining kostruktori ob‘yektni yaratadi va Name hususiyatining 
qiymatini aniqlovchi FName maydonining qiymatini o‘rnatadi. 
TPerson  sinfning  ob‘yektini  yaratuvchi  va  uning  qiymatlarini  o‘rnatishni  ta‘minlovchi 
dastur buyruqlari quyidagicha bo‘lishi mumkin: 
student := TPerson.Create('Qodirov');  
student.Address := 'Namangan sh, Do`stlik ko`cha, 11-uy'; 
 Vorislik (me‟ros olish) 
Ob‘yektga mo‘ljallangan dasturlashning mohiyati  mavjud sinfga maydon, hususiyat  va 
uslub  qo‘shish  yo‘li  bilan  yangi  sinf  yaratish  imkonini  beradi.  Yangi  sinflarni  yaratishning 
bunday  mexanizmi  tug‘ilish  deb  ataladi.  Bunda  yangi  tug‘ilgan  sinf  (avlod)  o‘zining  ajdod 
sinfidan hususiyat va uslublarni me‘ros qilib oladi.