Зертханалық жұмыс №1 «Delphi интерфейсінің элементтері»

жүктеу 2,2 Mb.

бет	56/118
Дата	04.01.2022
өлшемі	2,2 Mb.
	#36255

1 ... 52 53 54 55 56 57 58 59 ... 118

Зертханалы ж мыс №1 «Delphi интерфейсіні элементтері»

TStud
TPerson , TStud және TProf

for i := 1 to SZL do // SZL – тізім – массивінің өлшемі

if list[i] <> NIL

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

ShowMessage(st);

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

Келесі бағдарлама жоғарыда қарастырылған TPerson, TStud және TProf кластарының жариялануын қолдана отырып, студенттер мен оқытушылардың тізімін қалыптастырады және шығарады. Бағдарламаның мәтіні 2.1 листингісінде, ал қарым – қатынас терезесі сурет 2.1 келтірілген.

Сурет 2.1 «Полиморфизм» бағдарламасының қарым – қатынас терезесі

2.1 листингісі Полиморфизмнің демонстрациясы

жүктеу 2,2 Mb.

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

1 ... 52 53 54 55 56 57 58 59 ... 118