Samarqand davlat universiteti raqamli texnologiyalar fakulteti informatika o

function TPerson.info:string;

begin

result := " ;

end;

function TStud.info:string;

begin

result := fname + ' op.' + IntTostr(fgr);

end;

function TProf.info:string;

begin

result := fname + ' kaf.' + fdep;

end;

Ikkala sinf bitta asos sinfdan hosil qilingani uchun talabalar va

domlalar ro‘yxatini quyidagicha ta’riflash mumkin:

list: array[l..SZL] of TPerson;

Talabalar va domlalar ro‘yxatini info usulini massiv element-lariga

qollab chiqarish mumkin. Masalan:

st := '';

for i:=l to SZL do

if list[i] o N IL

then st := st + list[i].Info+ #13;

writeln (st);

Vizual komponentalar bibliotekasi

Delphi sinflari murakkab iyerarxik tuzilmaga ega bolgan vizual

komponentalar bibliotekasini (Visual Component Library —VCL) tashkil qiladi. VCL tarkibiga kiruvchi yuzlab sinflar mavjud. Hamma boshqa sinfga ajdod sinf boluvchi asosiy sinflarga quyidagilar kiradi.

Komponentalar — sinflarning nusxalari bolib. TComponent sinfining davomchilaridir (avlodidir). Boshqa hamma sinf nusxalari obyektlar deyiladi. Komponentalar bilan obyektlar orasidagi farq shundaki, formada komponentalar bilan (manipulatsiya qilish) ish ko‘rish mumkin,

lekin obyekt bilan ish ko‘rish mumkin emas. Masalan, komponenta bolmagan TFont sinf obyektini qaraydigan bo‘lsak uni formaga joylashtirib bolmaydi. Komponentalar Label yoki Edit lami formaga joylashtirish mumkin va ulami joylashtirishda TFont sinf turiga ktruvchi

Font xossasidan foydalaniladi.