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

tуре // базалық класс TPerson = class

жүктеу 4,91 Mb.

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

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

ТРПО готовый

tуре

// базалық класс TPerson

= class fname: string; // аты

constructor Create(name:string); function info: string; virtual; end;

// алынған от TPerson TStud = class(TPerson) fgr:integer; // оқу тобының саны

constructor Create(name:string;gr:integer); function info: string; override; end;

// алынған от TPerson TProf = class(TPerson) fdep:string; // кафедраның аталуы

constructor Create(name: string; dep: string); function info: string;

override; end;

Осы сыныптардың әрқайсысында ақпараттық әдіс анықталады. Виртуалды директиваны пайдаланатын базалық класста, инфо әдісі виртуалды деп жарияланады. Әдіс виртуалды

деп жариялау сыныптың жоғары деңгейіне виртуалды әдісті өзімен ауыстыруға мүмкіндік береді. Әрбір баланың сыныбында ата- аналық сыныптың тиісті әдісін ауыстыратын өзінің меншікті ақпараттық әдісі бар (ата-аналық сыныптың виртуалды әдісін ауыстыратын баланың сыныбының әдісі переопределение директивасымен белгіленген). Төменде әр сынып үшін ақпараттық әдіс анықтамасы берілген.

function TPerson.info:string;

жүктеу 4,91 Mb.

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

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