Avtomatika va elektrotexnologiya

procedura so‘zi o‘rniga constructor so‘zidan foydalaniladi. 
Quyida tarkibiga konstruktor kiritilgan TPerson sinfini e‘lon qilish  keltirligan: 
TPerson = class  
private 
fname: string [ 15 ]; 
faddress: string[35]; 
constructor Create; // konstruktor  
public 
procedure show; // uslub 
end; 
Ob‘yekt (professor) ma‘lumotlari uchun xotira ajratish, unga uslub-konstruktorni (Create) 
ob‘yekt  tipiga  (TPerson)  qo‘llash  natijasining  qiymatini  o‘zlashtirish  yo‘li  bilan  amalga 
oshiriladi. Masalan,  
professor := TPerson.Create; 

---

buyrug‘i  bajarilgandan  so‘ng,  professor  ob‘yektining  ma‘lumotlari  uchun  kerakli  xotira 
ajratiladi.  
Xotiradan  joy  ajratish  bilan  birga  konstruktor  qoidaga  asosan  ob‘yekt  maydonlariga 
boshlang‘ich qiymatni yuklaydi. Quyida Tperson ob‘yekti uchun konstruktorni qo‘llashga misol 
keltirilgan: