Практика бөлім техникалық Қызметті дамыту негізгі

begin result := ' ' ; end

жүктеу 4,91 Mb.

бет	54/91
Дата	18.03.2022
өлшемі	4,91 Mb.
	#37853

1 ... 50 51 52 53 54 55 56 57 ... 91

ТРПО готовый

begin

result := ' ' ;

end;

function TStud.info:string; begin

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

end;

function TProf.info:string;

begin

result := fname + ' каф.' + fdep;

end;

Екі сабақ бірдей негізгі негізінде жасалғандықтан, студенттер мен мұғалімдердің тізімін жариялауға болады (мұнда объект көрсеткіш болып табылатындығын еске түсіру керек):

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

Тізімді осы жолмен жариялай аласыз, себебі Delphi көрсеткішін ата-аналық сыныпқа баланың сыныбына көрсеткіш мәнін тағайындауға мүмкіндік береді, сондықтан тізбе жиым элементтері TStud нысандары немесе TProf нысандары болуы мүмкін.

Студенттер мен мұғалімдердің тізімін ақпараттық элементтер әдісімен қолдану арқылы көрсете аласыз. Мысалы, бұл:

st := '';

for i:=l to SZL do // SZL — размер массив

өлшемі

if list[i] о NIL

then st := st + list[i].Info

Аты-жөні, топ немесе кафедра меңгерушісі, студент, оқытушы, қосу, тізім

Сурет. 7.1. Бағдарламаның тілқатысу терезесі
+ #13; ShowMessage (st);

Бағдарлама жұмыс істеп тұрған кезде, массивтің әрбір элементі TStud түрінің нысаны және TProf түрінің нысаны болуы мүмкін. Полиморфизм тұжырымдамасы объектінің түріне сәйкес келетін әдіс атауы нысанына өтініш береді.

Келесі бағдарлама ТПерсон, TStud және TProf жоғарыда аталған сыныптық декларацияларын пайдалана отырып, студенттер мен оқытушылардың тізімін жасайды және көрсетеді. Бағдарламаның мәтіні Листинг 7.1-де көрсетілген және диалогтық терезе сурет. 7.1.Листинг 7.1

Полиморфизмді көрсету:

жүктеу 4,91 Mb.

Достарыңызбен бөлісу:

1 ... 50 51 52 53 54 55 56 57 ... 91