Delphi tilida

Ture 
fname: string; 
constructor Create(name:string); 
function info: string: 
virtual; 
end; 
fgr:integer; 
constructor Create(name:string;or:integer); 
function info: string; override; end; 
fdep:string; 
constructor Create(name:string;dep:string); 
function info: string; 
override; 
end; 
Bu sinflarning har birida info usuli ta’riflangan. Asos sinfda virtual 
direktivasi yordamida info usuli virtual deb e’lon qilingan. Usulning 
virtual deb e’lon qilinishi avlod sinfda bu usulni shaxsiy usul bilan 
almashtirishga imkon beradi. Hosil qilingan sinfda virtual usulni 
almashtiruvchi usul override direktivasi bilan ta’riflanadi. 
Quyida har bir avlod sinfda info usulining ta’rifi keltirilgan: 
function TPerson.info:string; 
begin 
result := " ; 
end; 
function TStud.info:string; 
begin 
result := fname + ' op.' + IntTostr(fgr); 
end; 
function TProf.info:string; 
begin 

62 

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 NIL 
then st := st + list[i].Info+ #13; 
writeln (st); 

3.5.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.