Ы маамммтттттngy s,,,,,,,,,,,C, xf

Type

=Class()

Public



Published



Projected



Private



End;
Har bir bo’lim ichida maydonlar, usullar, xossalar va hodisalarni e’lon qilish mumkin.

Polimorfizm - bu har xil sinflarga kiruvchi usullar uchun bir xil nomlardan foydalanish imkoniyatidir.

Uchta sinf ta’rifi berilgan bo’lib bulardan biri qolgan ikki sinf uchun asos sinf bo’lsin:
ture

fname: string;

constructor Create(name:string);

function info: string;

virtual;

end;

fgr:integer;

constructor Create(name:string;gr: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 + ' gp.' + 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 elementlariga qo’llab chiqarish mumkin. Masalan:

st := '';

for i:=l to SZL do

if list[i] o NIL

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

writeln (st);

Savollar :

1. 
   Delphi dasturini imkoniyatlari ?
   
2. 
   Delphi dasturi haqida tushuncha bering?
   
3. 
   Delphi dasturi qanday dastur?
   

Uyga vazifa:O’tilgan mavzuni o’qib o’rganib kelish.